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Prisonnier ou milieu d'un labyrinthe 
intersidéral, vous cherchez les 9 
morceaux de la clé, unique objet de 
votre libération. Les pièces du labyrinthe 
sont truffées de têtes de mort au contact 
destructeur. Grâce aux touches fléchées, 
vous déplacerez votre vaisseau et vous 
parviendrez peut-être ainsi à vous en sortir 
vivant. 

Bonne chance... 

Le mode d'emploi est inclus 

dans le programme» 
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10 CLEAR:DEFINT A-Z:60SUB 200: INK 0,0: INK 1,15:INK 2,6: >JR 

INK 3,2:PAPER 0:PEN 1:B0RDER 0:GOSUB 1660:G0SU8 1870:M0 

DE 1:VIE=4:P=5:C=0:FG=2:DM P(24,19),L(25,27),0(27):0B= 

0:F0R 1=0 T0 27:0(I)=0:NEXT:X=12:Y=16 

20 T*="000011011110011110110101101011000011100101101000 >NR 

0010000101000000111001111011110r:Tl*="0000011111011011 

111000111100010110100U01001010010000010000100001101101 

111100111":P*="000000-101-1010001010001-t01-100-l-l" 

30 RESTORE 40:F0R H=l T0 6:READ A,B,C,D,E:WIN00« #H,A,B >YC 

,C,D:PAPER tH,E:CLS tH:NEXT:PEN 11,0 

40 DATA 25,2,20,2,3,25,2,24,22,3,39,27,17,4,3,39,27,24, >J6 

24,0,27,39,22,19,2,39,27,2,2,0 

50 GOTO 510 >RK 

60 ' >LF 

70 IF INKEY(i)=0 THEN SOUND 1,300,5, 15:P=P+l-8*INT(P/8> >NZ 

:LXATE ll,X,Y:PRINT tl,0»(P) 

B0 IF INKEV(B)=0 THEN SOUND 1,200,5, 15:P=P-1+B»INT(1/P) >NZ 

:LXATE #1,X,V:PRINT I1,0»(P) 

90 IF HKEY(0)=0 THEN 100 aSE 110 >ZF 

100 KL»=MID«(P*,PM+l,4):LN=VAL(niD«(KL*,l,2)):KI1=VAL(N >RC 

IM(KL«, 3,2)1 

110 IF DIF=1 AND INKEY(2)=0 THEN LM=0:K11=0:60T0 140 >UC 

120 IF INKEYI47)=0 THEN as *2:L0CATE #2,2,2:PRINT 12," >IU 

(16,0); (14,81; 113,9) (5,12); (20,27) ; (16,15) (1,14) 
; (11,21); (15,20)":WHIL£ INKEY«<>":NEND:CALL 4BB06:CLS 
I2:G0SUB 1640:G0T0 140 

130 SOUND 2,2000,5, 15:PEN »1,0:X=X+LM:Y=Y4M1:60SUB 160: ME 
L0CATE ll,X,Y:PRINT I1,0*(P) 

140 RETURN >ZA 

150 ' >RG 

160 IF (LM=0 AND KH=-1) OR (LH=0 AND KH=1> OR (LK=-1 AN >HB 
D KN=0) OR (UM AND KM=0> THEN L0CATE Il , X-LIH2, Y-K1H2 
:PRINT ll,K«(l):RETURN 

170 IF (L(1=l AND KM=-1) OR (LN=-1 AND KH=1) OR (LM=1 AN >HT 
D KM=1) OR (L«=-l AND KM=-1) THEN LOCATE #1, X-LM, Y-KMïP 
RM ll,K«(l):RETURN 

180 RETURN >ZE 

190 ' >TA 
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200 RESTORE 240:DIM 0$(8):SYMB0L AFTER 12B:F0R 1=160 TO >KP 
233:READ Cl,C2,C3,C4,C5,C6,C7,CB:SYt1B0L I,C1,C2,C3,C4, 
C5,C6,C7,C8:NEXT 

210 Y*=CHR»(128):K=1:F0R B=160 TO 191 STEP 4:M(K)=CHR« >MB 
(B)+CHR$(B+l)+ n - +CHR$(B+2)+CHR«(B+3):K=K-H:NEXT:K$(l 
)=Y«+Y»+" "tYttYI 

220 EX*(1)=CHR*(196)+Y*+" "+y»+CHR$(i97):K=2:F0R B=19 >PZ 
B TO 225 STEP 4:EX«(K)=CHR«(B)+CHR$(B+1)+" "♦CHRKB+2 
) +CHR$ (B+3) : K«K+1 : NEXT: Q» ( 1 > =CHR« (192) «CHR» ( 193) +CHR* (2 
2)*CHR*(1) 

230 Q$(2)=CHR$(194)+CHR$(195)*CHR«(22)+CHR«(0):F»=CHR«( >VB 
143):L$=CHR*(149) 

240 DATA 0,0,0,0,1,3,7,15,0,0,128,128,192,224,112,120,3 >CN 
1,25,17,17,0,0,0,0,252,204,196,196,0,0,0,0 
250 DATA 0,0,16,60,103,3,1,3,0,0,4,24,120,208,176,224,7 >MG 
,3,1,0,0,0,0,0,240,176,24,8,12,24,16,0 
260 DATA 0,0,0,15,3,1,1,15,0,0,0,0,128,192,224,240,15,1 >XT 
5,1,1,3,15,0,0,60,240,224,192,128,0,0,0 
270 DATA 0,0,0,0,0,1,3,7,0,16,24,12,8,24,176,240,3,1,3, >HB 
103,60,16,0,0,224,160,208,120,24,4,0,0 
280 DATA 0,0,0,0,35,35,51,63,0,0,0,0,136,136,152,240,30 >XX 
, 14, 7, 3, 1 , 1 , 0, 0, 240, 224, 192, 128, 0, 0, 0, 
290 DATA 0,8,24,48,16,24,13,15,0,0,0,0,0,128,192,224,7, >DR 
13,11,30,24,32,0,0,192,128,192,230,60,8,0,0 
300 DATA 0,0,0,1,3,7,15,60,0,0,240,192,128,126,240,240, >CH 
15,7,3,1,0,0,0,0,240,128,128,192,240,0,0,0 
310 DATA 0,0,32,24,30,11,13,7,0,0,8,60,230,192,128,192, >DJ 
15,13,24,16,48,24,8,0,224,192,128,0,0,0,0,0 
320 DATA 192,240,254,255,255,127,30,0,0,0,0,255,248,192 >* 
,0,0,0,0,0,15,0,0,0,0 

330 DATA 0,0,0,192,0,0,0,0,0,0,0,0,0,0,0,1,128,0,0,0,0, >W 
0,0,0,0,0,0,0,0,0,2,1 

340 DATA 0,0,0,0,0,0,64,128,2,2,0,0,0,0,0,0,64,128,0,0, >YY 
0,0,0,0,0,0,0,0,0,2,1,6 

350 DATA 0,0,0,0,0,160,64,64,5,5,2,0,0,0,0,0,192,64,32, >EX 
0,0,0,0,0,0,0,0,0,4,10,5,9,0,0,0,0,144,32,80,64,5,10,5, 
4,0,0,0,0,96,176,96,80,0,0,0,0 
360 DATA 0,0,0,10,13,18,12,21,0,0,0,72,32,80,168,32,25, >QC 



12,25,10,18,0,0,0 

370 DATA 32,88,160,24,72,0,0,0,0,0,20,1,4,16,5,0,0,0,84 >MV 

,0,196,48,72,4 

380 DATA 17,4,10,17,4,17,0,0,16,64,148,72,20,0,0,0,0,68 >RW 

,17,36,42,81,8,34 

390 DATA 0,72,36,82,136,144,66,0,8,82,8,42,16,69,17,0,0 >XF 

,84,32,138,32,84,18,0 

400 DATA 1,1,15,15,1,1,1,1,128,128,240,240,128,128,128, >6J 

128,7,8,16,32,64,255,128,255 

410 BATA 224, 16,B,4, 2,255,1, 255,34, 34, 39, 119, 119,127,25 >QX 

5,255,255,255,127,119,119,39,34,34 

420 DATA 192,248,255,192,224,252,255,252,63,255,63,7,31 >BE 

,255,31,3 

430 DATA 0,0,0,1,14,24,49,34,98,68,76,72,72,76,68,98,0, >6G 

0,0, 192,56, 12,230,50, 19, 17, 16, 16, 17, 17, 17,19 

440 RESTORE 450: FOR 1=245 TO 252: READ C1,C2,C3,C4,C5,C6 >M2 

,C7,CB:SYMB0L 1,C1,C2,C3,C4,C5,C6,C7,C8:NEXT 

450 DATA 0,224,16,16,32,32,32,32,34,49,24,14,1,0,0,0,50 >UT 

,230,12,56,192,0,0,0,1,0,0,0,0,0,0,0,192,0,0,0,0,0,0,0, 

2,2,2,1,0,0,0,0,32,32,32,224,0,0,0,0,249,138,254,250,24 

9,253,255,248 

460 SYMBOL 143,124,254,214,254,124,56,56,56 >JX 

470 SYMBOL 235,0,255,0,0,255,1,1,1 >AQ 

480 SYMBOL 237,0,255,0,0,7,117,85,92 >CK 

490 SYMBOL 239,0,255,0,0,126,66,194,2 >CC 

500 RETURN >ZA 

510 RESTORE 520: FOR H=l TO 6:READ A,B,C,D:LOCATE A,B:PR >EP 

INT STRING*(C,D);:NEXT 

520 DATA 1,1,40,154,1,25,40,154,1,21,25,154,26,18,14,15 >DE 

4,26,23,14,154,26,3,14,154 

530 FOR 1=1 TO 25:L0CATE 1,I:PRINT L«;:LOCATE 40,I:PRIN >UV 

T L$;:LOCATE 26,I:PRINT L«;:NEXT 

540 FOR H»l TO 14:READ A,B,C:UXATE A,B:PRINT CHR»(C);: >EH 

NEXT 

550 DATA 1,1,150,1,25,147,40,25,153,40,1,156,1,21,151,2 >FE 

6,23,151,26,18,151,26,3,151,26,25,155,40,23,157,40,18,1 

57,26,1,158,40,3,157,26,21,157 

560 GOSUB 1310:G0SUB 1640 >TC 

570 FOR H=l TO 8:READ A,B,C,D:PEN #4,A:L0CATE »4,B,C:PR >VD 

INT #4,Q*(D):NEXT 

580 DATA 1,1,1,1,2,1,1,2,1,4,1,1,2,4,1,2,1,7,1,1,2,7,1, >TK 

2,1,10,1,1,2,10,1,2 

590 RESTORE 610:FOR 1=0 TO 27:F0R J=0 TO 25:READ A:L(J, >RB 

I1=A: NEXT: NEXT 

600 'Ubyrinthel >RB 

610 DATA 7,14,5,14,5,3,1,5,5,5,14,5,14,14,14,3,19,5,5,5 >NN 

,14,5,5,14,5,10 

620 DATA 6,9,3,9,10,7,5,5,10,1,13,10,6,6,6,2,1,14,5,10, >LC 

6,1,10,11,3,6 

630 DATA 6,2,7,14,13,15,14,3,4,7,14,12,6,6,6,11,10,9,10 >PK 

9 12 2 9 15 3 4 
640 DATA 6,9,8,9,3,4,9,14,5,8,6,6,6,6,9,8,6,1,12,7,13,8 >FB 

2 9 10 2 

650 DATA 11,5,14,3,7,10,7,15,10,7,8,4,4,11,5,5,15,10,6, >MU 
9,5,5,12,2,6,6 

660 DATA 11,3,9,5,6,9,12,4,4,9,3,7,5,8,7,10,6,9,15,3,1, >JP 
14,13,8,6,6 



* 670 DATA 6,7,14,14,14,3,9,10,1,5,10,6,1,5,12,9,13,3,9,3 >NQ 
T ,7,13,5,14,12,6 

680 DATA 11,8,4,11,13,5,3,6,1,5,13,13,5,10,6,1,10,1,14, >HU 

3,4,1,10,6,6,6 

690 DATA 11,14,3,9,10,7,3,6,2,7,5,14,5,8,18,7,8,1,12,2, :>LP 

1,5,15,8,9,12 

700 DATA 6,9,5,10,11,8,2,4,11,8,2,6,7,17,7,15,5,5,13,13 M 

,14,10,6,2,7,8 

710 DATA 6,1,14,8,11,3,11,5,12,7,8,6,9,10,6,11,10,1,14, QV 

14,8,11,13,13,8,2 

720 DATA 11,10,11,3,4,7,12,2,6,6,2,9,5,8,6,4,4,2,6,11,3 JC 

,4,7,14,10,6 

730 DATA 6,6,11,5,3,18,4,6,4,6,11,5,3,7,8,7,5,13,12,6,7 >JH 

,14,8,6,4,6 

740 DATA 6,4,6,7,14,5,5,13,5,8,6,2,1,15,3,11,10,2,4,11, >KJ 

8,6,2,9,5,12 

750 DATA 4,19,8,6,6,7,10,1,10,7,13,8,7,8,1,8,9,15,3,9,1 >LR 

0,4,11,14,3,6 

760 DATA 2,2,7,12,9,8,6,7,12,9,5,10,6,1,14,3,19,8,2,7,1 >KY 

3,14,8,4,2,6 

770 DATA 6,9,8,9,14,10,6,6,9,5,10,11,13,5,12,7,10,2,11, >NV 

15,3,11, 3,7,8,4 

780 DATA 11,3,2,7,12,4,6,4,7,5,12,11,5,14,12,6,4,9,8,9, >PX 

10,11,10,11,10,2 

790 DATA 11,3,11,8,6,2,9,5,12,7,15,13,3,4,9,13,5,10,2,7 >K6 

,8,4,9,8,9,8 

800 DATA 6,7,15,5,8,6,1,10,4,6,11,5,5,10,7,10,2,11,8,9, >KA 

5,5,14,5,3,2 

810 DATA 6,6,11,5,5,8,7,8,7,8,11,3,2,9,8,18,6,9,10,7,5, >JL 

5,13,10,2,6 
| 820 DATA 11,8,6,1,10,1,13,10,6,7,12,16,9,10,2,7,12,7,6, >MY 

9,10,7,5,8,6,6 

830 DATA 11,10,9,14,13,14,5,13,12,4,9,6,7,8,6,6,11,15,3 >PT 

,2,4,9,10,7,12,6 

640 DATA 6,9,10,6,2,4,7,10,9,5,14,3,6,7,8,6,4,9,10,9,10 >LK 

,1,13,12,9,12 

850 DATA 6,1,8,6,9,5,12,6,7,5,8,7,13,15,5,8,7,3,9,10,9, >KL 

14,14,B,1,12 

860 DATA 11,10,7,12,7,3,6,9,13,14,10,6,7,13,14,10,9,10, >RM 

7,8,7, 6,9,14,10,6 

870 DATA 4,9,8,4,6,2,4,1,5,8,11,12,9,3,4,4,7,13,13,3,4, >6N 

7,10,4,4,6 

880 DATA 1,5,5,5,13,13,5,5,5,5,13,13,5,5,5,5,13,5,5,3,1 >LK 

9,13,13,5,5,8 

890 60T0 940 >A6 

900 ' >RK 

910 IF L(J,I)>15 THEN CM=0 >TX 

920 GOSUB 1140: GOSUB 930:PL0TR 8,0:PL0TR 0,8:PL0TR -8,0 >BF 

:PLOTR 0,-8:DRAHR 0,8*CG:G0SUB 930:PL0TR 8,0:DRAWR 0,8» 

CD:GOSUB 930:DRANR 8»CB,0:G0SUB 930:PL0TR 0,8:DRANR 8*C 

H,0:GOSUB 930:PL0TR 2,2,CM:DRANR 4,0:PL0TR 0,2:DRAWR -4 

,0:PLOTR 0,2:DRAHR 4, 0:CM=3: RETURN 

930 PLOT 416,126,C:PL0TR J»8,I»8: RETURN >HX 

940 'PROGRAMME PRINCIPAL >TD 

950 J=15:I=20:G0T0 1260 >RL 

960 IF 1=27 AND J=0 AND 0B=9 THEN 1930 >CN 

4 970 IF L(J,I)>15 THEN GOSUB 1330 ELSE GOSUB 1330:G0SUB >BA 



1350 

9B0 M1$=MID*(T1$,L(J,I)*4+1,4):MD=VAL(MID*(M1$,1,1)):I1G >YL 

=VfiL(MID$(ni$,2,I)>:HH=V«.fMID$(HI»,3,l)):HB=VfiL(mD«(M 

11,4,11) 

990 GOSUB 60 >CC 

1000 IF L(J,I)>15 THEN BOSUB 1450: GOTO 1050 >JH 

1010 IF P(X,V)«1 THEN 1400 >TF 

1020 IF P(X,Y+1)«I THEN 1400 >UD 

1030 IF P(X+1,Y+1)=1 THEN 1400 >WX 

1040 IF P(X+1,Y>«1 THEN 1400 >UF 

1050 IF M>1 THEN 60SUB 11B0 ELSE IF X=23 THEN C=1:G0SU >VZ 

B 910:J=J+1:G0T0 1260 

1060 IF MB=1 THEN BOSUB 1160 ELSE IF X«l THEN C=1:G0SUB >XC 

910:J=J-1:60T0 1260 
1070 IF HH>1 THEN GOSUB 1200 aSE IF Y«l THEN C=l: BOSUB >NE 

910:I=I+1:G0T0 1260 

1080 IF MB=1 THEN GOSUB 1220 ELSE IF Y=!8 THEN C=1:G0SU >YA 
B 910:I=I-1:60T0 1260 

1090 IF FG=0 THEN 1400 >PE 

1100 GOTO 9B0 >FE 

1110 ' >XF 

1120 CLS#1:B0SUB 1140:LOCATE M,1,1:PRINT »1,STRING«(24 >JF 
♦CH, 227);: LOCATE #1 , 1 , 19: PRINT »1,STR1NGS(24*CB,226);:F 
OR FGH=1 TO 19:L0CATE #1,1,FGH:PRINT #1 , CHR* (228*CG> ; :N 
EXTiFOR FGH=1 TO 19:L0CATE #1,24,FGH:PRINT »1,CHR$(229* 
CD) ;:NEXT: RETURN 

1130 ' >XH 

1140 H«=«ID«(T$,L(J,I)*4+l,4):CG=VAL(MID«(n»,l,l)):CB=V >CX 
ftL(WD«(M$,2,l)):CD=VAL(NIM(M«,3,Ii):CH=VAL(NIM(m,4, 
1)): RETURN 

1150 ' >XK 

1160 IF X<=2 THEN SOUND 1,200, 10: LM=1:X=X+1: LOCATE ll,X >TA 
-1,Y:G0SUB 1250 

1170 RETURN >FC 

1180 IF X>=22 THEN SOUND 1,200,10:LM=-1:X=X-1:LOCATE #1 >UE 
,X+1,Y:G0SUB 1250 

1190 RETURN >FE 

1200 IF Y<=2 THEN SOUND 1 , 200, 10: KH=1 : Y=Y+ 1 : LOCATE #1,X >TX 
,Y-1: GOSUB 1250 

1210 RETURN >EH 

1220 IF Y>=17 THEN SOUND 1,200, 10:KM=-1:Y=Y-1:L0CATE 11 >HF 
,X,Y*1:G0SUB 1250 

1230 RETURN >EK 

1240 ' >XK 

1250 PRINT #1,K$(1):FG=FG-1:G0SUB 1310:RETURN >PA 
1260 C=2 >VA 

1270 IF X>=23 THEN X=2 ELSE IF X<=2 THEN X=22 >KU 
1280 IF Y>=18 THEN Y=2 ELSE IF Y<=2 THEN Y=17 >KH 
1290 LOCATE #6,1,1:PRINT #6, "J=";J: LOCATE I6,7,1:PRINT >JT 
•6,"I=";I 

1300 GOSUB 910:G0SUB 1120:S0T0 960 >B6 

1310 LOCATE I5,1,1:PRINT «."ENERGIE :";FG:RETURN >W 
1320 ' >XJ 

1330 FOR TI=0 TO 4:P(XP0(TI),YPO(TI))=0:NEXT:P(3,3)=O:P >TH 
(3, 17)=0:P(20,3)=0:P(20,17)=0:P(12,9)=0: RETURN 
1340 ' >YA 

1350 FOR TI=0 TO 4:XP0(TI)=INT(RND*15)+6:YP0(TI)=INT(RN >TJ 



. . D*10)+6:P(XP0(TI),YP0(TI))=1:L0CATE #1,XP0(TI),YP0(TI): 
PRINT#1,F«:NEXT 
1360 RESTORE 1370:F0R H=l TO 5:READ A,B:P(A,B)=1:L0CATE >FZ 

tU,A,8:PRINT#l,F*:NEXT 

1370 DATA 3,3,3,17,20,3,20,17,12,9 >ZC 

1380 RETURN >FF 

1390 ' >YF 

1400 SOUND 2,0, 150, 15,0,0, 1:F0R G=l TO 5:S0UND 4,50,6,1 >RE 
5,0,0,10:NEXT 6:F0R N=l TO 8:L0CATE ll,X,Y:PRINT #1,EX« 
(W):FOR H=l TO 500:NEXT:NEXT:FOR H=l TO 500:NEXT 
1410 RESTORE 1420:F0R H=l TO 7:READ A1,B1,C1:S0UND 1,A1 >HA 
,B1,C1:NEXT 

1420 DATA 239,20,15,0,2,15,239,20,15,319,20,15,213,20,1 >XN 
5,239,40,15,319,20,15 
1430 VIE=VIE-1: IF vTE=3 THEN LOCATE I4,10,1:PRINT »4," >DA 

" ELSE IF VIE=2 THEN LOCATE #4,7,1:PRINT #4," ":ELSE 
IF VIE=1 THEN LOCATE #4,4,1:FRINT #4," " ELSE IF VIE=0 

THEN LOCATE »4,1,1:PRINT 14," ":SOT0 1440 
1440 IF VIE=0 THEN LOCATE #1,8, 10:PRINT#1, "GAME 0VER":6 >KD 
OSUB 2150:RUN ELSE CLS #l:X=12:Y=15:LM=O:KM=0:FG=2:G0SU 
B 1310:G0T0 1260 

1450 IF ( I ) =0 THEN GOSUB 1470 >KA 

1460 RETURN >FE 

1470 P(20,6)=2:LOCATE #1,20,6: PRINT #1,CHR»(252) :>PN 
1480 IF P!X,Y)=2 THEN GOSUB 1530 >YJ 

1490 IF P(X,Y+1)=2 THEN GOSUB 1530 >AJ 

1500 IF P(X+1,Y+1)=2 THEN GOSUB 1530 >BM 

1510 IF P(X+1,Y)=2 THEN GOSUB 1530 >AB 

1520 RETURN >FB 

1530 0(11=1 >QF 

1540 LOCATE #5,3,2:PRINT #5,CHR»(230*0(0));CHR«(232*0(0 >AG 
)) 

1550 LOCATE #5,3,3:PRINT #5,CHR* (231*0(8) ) ;CHR* (233»D(B >AD 
)) 

1560 LOCATE #5,3,4:PRINT »5,CHR$(246*0(9));CHR$(247*0(9 >AV 
)) 

1570 LOCATE #5,5,3:PRINT I5,CHR«(235*0(12)1 >KK 

15B0 LOCATE «5,6,3:PRINT #5,CHR$(237»0<27)> >KM 

1590 LOCATE #5,7,3:PRINT #5,CHR»(239*0(15)I >KX 

1600 LOCATE #5,7,4:PRINT #5,CHR*(250*0(14)1 >KF 

1610 LXATE #5,B,4:PRINT #5,CHR*(251*0(20)1 >KF 

1620 LOCATE #5,8,3:PRINT #5,CHR$(245*0(2D) >KK 

1630 0B=0B+l:GOSUB 1640:S0UND 1,200,10:F0R 11=1 TO 500: >LB 
INK 0,10:NEXT:INK 0,0:RETURN 

1640 LOCATE #2,2,2:PR!NT *2, "NOMBRE DE SEGMENTS" ;OB:RET >SZ 
URN 

1650 ' PRESENTATION >YE 

1660 MODE 2:L0CATE 20,12:A*="V0ULEZ VOUS LES REGLES DE >YU 
CE JEU GENIAL ? (0/N)":GOSUB 1850 

1670 0$=UPPER«(INKEY») >RU 

1680 IF 0«="0" THEN 1710 >0G 

1690 IF 0«="N" THEN RETURN >UP 

1700 GOTO 1670 >MK 

1710 FOR L=l TO 10:SOUND 3,600,6,6:S0UND 5,500,8,B:S0UN >XC 
D 5, 400,10, 10:SOUND 5,300, 12, 12:NEXT 

1720 MODE 2 >PG 

1730 LOCATE l,6:A$="Vous devez récolter 9 segments qui >GC 



formeront une de qui vous permettra de ":G0SUB 20B0 

1740 PRINT:At="sortir bu labyrinthe qui vous est propos >LU 

e.":60SUB 2080 

1750 PRlNT:At="Les têtes de mort sont mortelles, et, au n >KF 

îveau 2 vdus ne pouve: pas vous arreter.'iGOSUB 2080 

1740 PRINT:A«=" Voici le maniement du vaisseau :":G0SU >LV 

B 2080:PRINT:A*=" - Les touches droites et gauches du c 

urseur font tourner le valsseau":G0SUB 2080 

1770 PRINT:fl*=" - La touche p sert a faire avancer le v >DX 

aisseau dans le sens ou il est oriente" :G0SUB 2080 

1780 PRINT:At=" - La touche q sert a faire arrêter le v >PR 

aisseau en niveau 1 " : G0SU6 2080 

1790 PRINT:A*=" - La barre d'espace sert a avoir les co >QC 

ordonnées des objets":G0SUB 2080 

1800 PRINT:A$="Pour stopper la musique lorsque vous ave >HB 

: gagne ou perdu (helas ce genre de chose arrive) , 

appuyer sur ESPACE":GOSUB 2080 

1810 L0CATE 25,23:A*="B 0NNE CHANCE 111 ":G >GF 

0SUB 1850 

1820 L0CATE 27,25:A«="< AFPPUYEZ SUR ESPACE >":G0SUB 18 >DT 

50 

1830 G0SUB 2160 >XD 

1B40 RETURN >FG 

1850 FOR 1=1 T0 LEN(A»):PRINT hTD$(A$,I,l);CHR$(I43);CH >XT 

R$(8);:IF MM(A»,I,1>0" " THEN SOUND 1,50, 2,15,, ,20 

1860 FOR A=l T0 20:NEXT:NEXTiPRINT - ";:RETURN >Q0 

1870 MODE 2:L0CATE 30,10:A*="NI"EAU (1-2)":G0SUB 1850 >*l 

1880 0*=INKEY* >VF 

1890 IF 0$="1" THEN DIF=1:RETURN >Z« 

1900 IF 0»="2" THEN DIF=2:RETURN >ZP 

1910 60T0 1880 >NF 

1920 ' >VE 

1930 LKATE tl, 10, lOlPRINT 11, 1 GAGNE ":G0SU6 1950:G0T0 1 >a 

930 

1940 ' MUSIQUES >YG 

1950 RESTORE 202O:TT=2:NN=3:G0T0 1960 >FZ 

i960 READ N1,T1:T1=T1*TT:N1=N1*NN >CJ 

1970 IF INKEY(47>=0 THEN BORDER 26:RUN >FU 

1980 IF NK0 THEN 2010 >ND 

1990 SOUND 1,N1,T1,10:S0UND 2,N1*0.5,T1,14:S0UND 4,NH0 >KF 

.25,T1,10 

2000 FOR 1=1 TO T1:NEXT:S0UND 7,0,1, tSiBOTO 1960 >QL 

2010 FOR 1=1 TO 3O0O:NEXT:RETURN >AY 

2020 DATA 80,30,53,10,60,20,95,10,95,10,95,20,100,10,95 >MV 

,10,71,20,80,20,80,20,80,10,60,10,60,10,95,10,95,10,80, 

10,106,60,71,10,71,10,71,30,89,10,71,10,63,10 

2030 DATA 60,10,53,10,60,10,80,10,60,10,45,10,47,20,80, >JQ 

10,89,10,95,30,80,10,106,30,80,10,119,60,-1,-1 

2040 DATA 71,15,75,5,71,20,71,20,89,20,89,20,119,20,119 >ZA 

,20,0,20,71,15,75,5,71,20,71,20,89,20,89,20,106,20,0,40 

,80,10,71,10,60,20,119,20,119,20,80,10,71,10,60,20 

2050 DATA 119,20,119,20,0,10,71,10,60,20,67,20,71,20,80 >FU 

,20,71,60 

2060 DATA 71,15,75,5,71,20,71,20,89,20,89,20,119,20,119 >ZC 

,20,0,20,71,15,75,5,71,20,71,20,89,20,89,20,106,20,0,40 

,80,10,71,10,60,20,119,20,119,20,80,10,71,10,60,20 

2070 DATA 119,20,119,20,0,10,71,10,60,20,67,20,71,20,80 >NK 



,20,89,60,-1,-1 

2080 PRINT A«;:FOR 1=1 TO 100:I€XT:S0UND 1,80,10,15,0,1 >EY 

, MUS :MUS=MUS+3: RETURN 

2090 DATA 106,106,106,35,119,119,119,35,213,134,106,210 >GK 

, 159, 159, 159, 35, 100, 100, 100,35, 106, 106, 106, 35, 159, 1 19, 1 

00,210,106,106,106,35,119,119,119,35,134,134,134,35,17"' 

, 142, 142, 105, 159, 159, 159,35, 179, 179, 179, 35, 179, 179, 179, 

35,106,106,106,35,119,119,119,35 

2100 DATA 179, 134, 106, 200, 119,119, 119, 35, 134, 134,134, 35 >GB 

, 159, 134, 134, 105, 159, 159, 159, 35, 134, 134, 134, 70, 159, 106, 

106, 70,201, 159, 1 19,200, 134, 134, 134, 35, 142, 142, 142,35, 15 

9, 159, 159,35, 190, 159, 159,70, 142, 142, 142, 35, 134, 134, 134, 

35,142,142,142,70,159,159,159,70 

2110 DATA 169,142,142,200,169,134,134,35,142,142,142,35 >TB 

, 201, 159, 134, 105, 142, 142, 142, 35, 134, 134, 134,35, 1 19, 119, 

119,35,106,106,106,35,100,100,100,35,179,134,89,210,89, 

B9, 89,35, 179, 134, 100, 35, 106, 106, 106,35, 159, 100, 100, 70, 1 

06,106,106,35,119,119,119,35 

2120 DATA 201,134,134,35,142,142,142,35,134,134,134,35, >GR 

119, 119, 119, 35,213, 159, 106, 70, 159, 159, 159,35, 190, 190, 19 

0,35,169,169,169,70,213,169,106,35,119,119,119,35,213,1 

34, 106,200, 159, 159, 159, 35, 100, 100, 100,35, 106, 106, 106,35 

2130 DATA 159,119,100,200,106,106,106,35,119,119,119,35 >NB 

, 134, 134, 134, 35, 179, 142, 142, 105, 159, 159, 159,35, 179, 179, 

179,35,179,179,179,35,106,106,106,35,119,119,119,35,179 

,134,106,200,119,119,119,35,134,134,134,35,159,134,1345 

, 105, 159, 159, 159, 35, 134, 134, 134,70 

2140 DATA 159, 106, 106, 70,201, 159, 119,200,201, 159, 100,35 :>NL 

,213,159,106,35,239,159,119,35,213,134,134,70,213,142,1 

42,35,268,159,159,35,213,169,106,70,239,169,169,70,268, 

213,159,300 

2150 FOR 1=1 TO 3000! NEXT: RESTORE 2090:F0R NOTE=l TO B9 >BL 

:IF INKEY(47)=0 THEN BORDER 26:RUN ELSE READ M1,M2,M3,D 

URlSOUND 2,Ml,DUR,15iS0UND 1,M2, DUR, 15:S0UND 4,M3,DUR,1 

5:NEXT:F0R 1=1 TO 5000:NEXT:RETURN 

2160 RESTORE 2200 >LM 

2170 READ L:IF L=-l THEN 2160 >VN 

2180 IF INKEY(47)=0 THEN BORDER 26:F0R H=l TO 5000:NEXT ;-VH 

: BORDER 0: RETURN 

2190 READ M:SOUND l,L«2,M,5:SOUND 2,L/2,M,5:S0UND 4,L,M >PZ 

,7:G0TÛ 2170 

2200 DATA 71, 20,B0,20, 71, 50,80, 20, 89,20,95,20,106,20,11 >TY 

3,55,106,90,142,20,159,20,142,50,190,35,179,35,225,60,2 

13, 80,284, 20,319,20,2B4, 50, 319,20,358,20, 379, 20,426, 20, 

451,50,426,90 

2210 DATA 106,20,119,20,106,20,134,20,106,20,142,20,106 >GD 

,20,159,20,106,20,169,20,106,20,159,20,106,20,142,20,10 

6,20,134,20,106,20,426,20,106,20,379,20,106,20,338,20,1 

06,20,319,20,106,20 

2220 DATA 338,20,106,20,319,20,106,20,284,20,106,20,134 >AY 

,40,106,40,134,40,106,40,100,40,319,40,100,40,319,40,11 

9,40,142,40,119,40,142,40,106,40,358,40,106,40,358,40,1 

34,40,319,40,134,40,319,40 

2230 DATA 113,40,379,40,113,40,379,40,142,40,358,40,142 >EB 

,40,358,40,159,40,451,40,159,40,451,40,358,40,426,40,35 

8,40, 426,40,402, 40, 1073,40,402,40, 1073,40,284, 100, -U 
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MOTSCODE esf un programme aui 
vous aidera à faire les grilles ae 
MOTS CODES très simplement. __ 



Le programme est composé de deux parties : ^■snÈsrfvfl 
• CREATION. BAS créera les fichiers : ■jlj'fcl 

- IMAGE.BIN, le fichier image écran ; ISSaSUéU 

- MUSIQUE. FIC, le fichier notes de musique en 
stéréo ; 

- GRILLEx.FIC, les fichiers grille 1 à grille 10. 



Note : pour les CPC 464, modifier la ligne 90 
avant l'exécution : 90 GOSUB 20:m = VAL(e):IF 
1 =2 THEN 120 

EXPLICATION DES LIGNES DU PROGRAMME 

Lignes 20 à 40 - Routine si déplacement négatif ; 
Lignes 50 à 120 - Routine lecture DATA traduction et affi- 
chage page écran ; 

Lignes 130 à 160 • Définition variables et fonctions ; 
Ligne 170 - Sauvegarde fichier IMAGE.BIN ; 
Lignes 1 80 à 230 - Lecture DATA traduction et sauvegarde 
fichier MUSIQUE. FIC ; 

Lignes 240 à 280 - Lecture DATA traduction et sauvegarde 
fichiers GRILLEx.FIC; 
Lignes 300 à 390 - DATA page écran ; 
Ligne 400 ■ DATA traduction musique ; 
Lignes 410 à 480 - DATA musique ; 
Lignes 490 à 1040 - DATA grille n° 1 à grille n° 10. 

• MOTSCODE. BAS 
REGLES DU JEU 

Dans les grilles du programme, toutes les lettres ont été rem- 
placées par des chiffres. Un même chiffre représente toujours 
la même lettre. Le but du jeu est de reconstituer les mots au 
fur et à mesure que les lettres apparaissent dans la grille. 
Au début du jeu, l'ordinateur vous affichera des lettres, puis 
il vous demandera un nombre et un caractère et il se char- 
gera de placer le caractère à la position voulue en contrô- 
lant toute la grille. 

En haut à droite de l'écran apparaissent les lettres inutilisées. 
A droite de l'écran, une grille vous servira d'aide-mémoire, 
les lettres y seront affichées et modifiées selon vos directives. 



Ci V r^/COnAPILAIION 



Souvent réclamées, voici les compilations de CPC. Vous 
y trouverez les listings des anciens numéros ainsi que cer- 




tains articles de fond. 
A posséder absolument ! 



'3xg 



Compilation 1 
(n° là 4) 80 F 

Compilation 2 
(n° 5 à 8) 80 F 

Frais de port 10% 



» Nom : 
Prénom : 



• Code Postal : 
'Ville : 



SORACm 



-Signature 



La Haie de Pan 
35170 BRUZ 



Merci d'écrire en majuscules. 
• Ci-joint un chèque libellé à l'ordre 
. des Editions SORACOM 



ffl? 



LISTE DES VARIABLES 

VARIABLES ENTIERES 

A, C = Calculs intermédiaires 

B = Encre du stylo 1 

D = Sauvegarde valeur case pour modification 

E = Contrôle erreur 

G = Numéro de la grille utilisée 

H = Paramètre valeur case, nombre choisi 

I, J = Boucles de travail 

K = Largeur grille 

L = Longueur grille 

C (x, y) = Valeur des cases de la grille. 

VARIABLE REELLE 

Z ■ Vidage buffer chaîne pour éviter GARBAGE (remplis- 
sage de la mémoire} 

VARIABLES CHAINES 

M = Nombre choisi 

N = Caractère choisi 

O = Chaîne intermédiaire 

P = Nombres et caractères donnés par l'ordinateur 

Q = Caractère à afficher en haut à droite de l'écran 

R - Réponse de la grille 

S = Caractère à afficher à droite de l'écran 

T = Toutes les lettres de l'alphabet 

U = Chaîne de recherche pour modification 

V = Tous les nombres choisis 
W = Tous les caractères choisis 

X = Message à afficher par TAG 

Y = Message question, réponse 
T(x) = Lettres de l'alphabet. 

FONCTION 

FN(x,y) = Suppression de la chaîne Y à l'intérieur de la 

chaîne X. 

EXPLICATION LIGNES DU PROGRAMME 

Lignes 20 à 50 - Routine d'affichage par TAG 
Lignes 60 à 150 • Routine d'affichage à l'intérieur des grilles 
Lignes 160 à 200 - Routine d'affichage dessins grilles et 
vidage buffer chaînes 

Lignes 210 à 260 - Routine d'affichage questions et réponses 
Lignes 270 à 280 - Routine modification chaînes si modifica- 
tion de caractère 

Lignes 290 à 300 - Définition variables et fonction 
Lignes 310 à 330 - Lecture fichier MUSIQUE. FIC 
Lignes 340 à 370 - Lecture fichier IMAGE.BIN et affichage 
écran 

Lignes 380 à 460 • Interprétation musicale sur les 3 voix 
Ligne 470 - Suppression tableau C(x,y) et réaffectation des 
encres 

Lignes 480 à 510 - Choix de la grille du jeu 
Lignes 520 à 620 - Lecture fichier grille et affichage écran 
Lignes 630 à 730 - Boucle principale 
Lignes 630 à 670 - Choix du nombre 
Lignes 680 à 710 - Choix du caractère 
Lignes 720 à 730 - Gestion des choix et de la grille 
Lignes 740 à 780 - Contrôle si grille correcte 
Lignes 790 à 800 • Affichage solution si nombre choisi = 
Lignes 810 à 840 - Fin du programme 

CREATION GRILLE 

Pour créer des grilles, utilisez le programme CREAT. BAS 

Mettre à la ligne 30 : i = (numéro de la grille). 

A la ligne 100 : DATA (nombre de colonnes), (nombre de 

lignes). 

De la ligne 1 10 à la ligne 330 : mettre en DATA les valeurs 

de chaque case ligne par ligne selon le tableau ci-dessous. 

A la ligne 340 : DATA (nombres), (caractères) donnés par 

l'ordinateur. 



A la ligne 360 : DATA (solution de la grille). 

Note : le nombre de colonnes doit être inférieur à 16 et le 
nombre de lignes doit être inférieur à 24. N'oubliez pas de 
supprimer tous les REM. 

Valeurs 

1 234567891011 12 13 14 15 16 17 18 19 20 

21 22 23 24 25 26 

Codes 
oABCDEFGHIJKLMNOPQRSTUVWXYZ 

Exemple : 

Vous mélangez les lettres de l'alphabet : 

ACEGIKMOQSUWYBDFHJLNPRTVXZ 

A chaque lettre, vous attribuez un chiffre de 1 à 26 

ACEGIKMOQSUWYBDFHJLNPRTVXZ 

1 234567891011 12 13 14 15 16 17 18 19 20 21 

22 23 24 25 26 

Ensuite, il suffit d'établir la correspondance avec le tableau 
de codage donné plus haut, c'est-à-dire : 

ACEGIKMOQSUWYBDFHJLNPRTVXZ 

I 2345678910 11 12 13 14 15 1617 18 19 20 21 
22 23 24 25 26 

ABCDEFGHIJKLMNOPQRSTUVWXYZ 

Ensuite, vous entrerez de manière codée les lignes de la grille 
dans les DATA à partir de la ligne 1 10. 
Dans une grille 10x10 avec le mot CHOIX dans la première 
ligne, il faudra entrer en DATA : 

DATA©BQ£Y <$$,$>&& 

Les symboles <S> ou à (AZERTY) constituent les pavés de sépa- 
ration sur la grille. 

En ligne 340,1es nombres et caractères sont les indices don- 
nés au début du jeu. En utilisant le mot "CHOIX" comme 
indice, on entrera 

340 DATA 2, C, 17, H, 8, O, 5, I, 25, X 

Enfin la solution de la grille est la série de lettres de l'alpha- 
bet mélangés. 

Lancement : 

II faut taper et sauver les 3 programmes : 

CREATION. BAS, MOTSCODE.BAS et CREAT. BAS 

Lors de la première utilisation, c'est le programme CREATION 
qu'il faudra lancer. Ensuite, un RUN "MOTSCODE" débu- 
tera le jeu. 



10 GOTO 130 RD 

20 e=FNc:+="-" >RJ 

30 IF FNi<>0 THEN j=.j+l;e=e+FNd:GOT -GD 



Ho". 



30 

40 f="NFSR":RETURN >PU 

50 NOUE «,n:F0R 1=1 TO 1:R£AD d:FOR >YJ 
j=l TO LEN(d):l=FNi 
40 IF 1=3 THEN k=k+l:m(k)=XPOS:n(k) >UZ 
=YP0S:G0T0 120 

70 IF 1=4 THEN HOVE •<k),n<k)lMc-l >LP 
:G0T0 120 

80 IF 100 THEN j=jtl >NA 

90 GOSUB 20:«=VAL(e):IF 1=2 THEN FI >QQ 
LL m: GOTO 120 

100 j=j+l:GOSUB 20:n=OAL(e)i IF 1=1 >JF 
THEN MOVER «♦16,Ti»16:G0T0 120 
110 DRAWR »»16,n«16,l >PB 

120 NEXT:NEXT:RETURN >RV 

130 DEFSTR d-<:DEFINT i-niDIH i<27) >CT 
140 DEF FNd=MD*(dJ,l):DEF FNi=INS >NK 
TR«,FNdi 

150 MODE 1:«0VE 0,48,liDRANR 639,0: >V0 
DRAWR 0,303:DRAWR -639,0iDR«WR 0,-3 
03 

160 »=96:n=206:l=4:G0SJB 50:»=54:n= >VL 
64:1=6:GDSUB 50 

170 SAVE"Uâge.bin",t),l<C000 1 !,4000 >DN 
180 CLSiLOCATE 6,12:PRINT"SAUVEGARD >NK 
E FICHIER EN C0URS"+CHR«(7! 
190 n(l)=62:n(2)=92:n(3)=92:f="eABC >KA 
DEFBH I JKLMNOPQRSTUVWXVZ ■ 
200 FOR i=l TO 27:READ ■(i):NEXT:OP >DL 
ENOUT"«usique.fic" 

210 FOR 1=1 TO 3:HRITE#9,n(l):F0R » >XJ 
=1 TO 4:READ d:j=0:FOR k=l TO n(i): 
i=j+l 

220 e=FNd:IF FNi=0 THEN n=VAL(e)-l: >HE 

j=j+l:F0R 1=1 TO n:WRITE«9,n(FNi):k 

=k+l:NEXT 

230 NRlTE»9,i(FNi):NEXT:NEXT:NEXT:C >QA 

iOSEOUT 

240 FOR i=l TO 10:L0CATE 5,12:PRINT >¥T 

"SAUVEGARDE BRILLE No'ïi; "EN COURS - 

250 0PEN0UT"grille"*MD«(STR*lii,2) >QL 

+",fic":READ «,n:HRITE#9,n,n 

260 FOR k=l TO n:R£AD d:FOR j=l TO >WB 

«:e=FNd!WRITE#9,ASC(e)-64:NEXT:l£XT 

270 READ «:«RITEI9,i!lF lO-l THEN >FX 

READ e:WRITEI9,e:G0T0 270 

280 READ e;NRITE»9,e:CL0SE0UT:NEXT >FE 

290 CLStLOCATE 6,12:PRINT"SAUVEGARD >LM 

E FICHIERS TERHINES":END 

300 DATA -1107102-2S1022101-10-1223 >FR 

03-30-3-2-2-30-33SM-1SI120S031 1 100- 

3-1-1-10M-310-3-20S-1102-10-110-4-2 

0SM01F3 

310 DATA R0710R04-1-1R1-1101103-11R >NP 

032230«0-lF2R03fil-1102210N-l-lF2 

320 DATA M9002601-111402-20-1-10-U >EA 

-10-1-1S202-20-2-1-1-40-2201101-1S1 



1011-20-11S-11-10S-110-4S1-10-1-40S- 
11011003-10S-11M0F3 
330 DATA R0260O-2R0110O5-1O0-1R0-11 >PL 
OR01-10M-10F2R021140RS-100-1R1-1101 
1-11R1-120MO-1F2 

340 DATA -22S-1 10322402-222303-30-3 >RJ 
-2-2-30-33M-1SM200311100-3-1-1-10S 
M-3102S-10-11-20-1-10-3S2011101-10- 
1-1-1-40M01F3 

350 DATA R1-1201110R01R1-1101103-11 >FL 
R032230M0-1F2R032240HO-1F2 
360 DATA M9101503-30-3-2-2-50S-1101 >HC 
1O04-11M4-U00-3-1-1S04M-10F3 
370 DATA R0-1101103-11R011005-1O015 >HX 
0H0-1F2 

380 DATA H2101701-111402-20-1-10-11 >QL 
-10-1-1S202-20-2-1-1-4O-2201101-1B1 
011-20-11S-11-10S-11-101-1SO-2101-1 
0-2-7OS-UO11004-11M5-4O-1S-11S10M0 
1F3 

390 DATA RO-2300110R1001R011005-100 >VU 
1700-2R-100-1-100210R01-10N-30F2R02 
1140RS-100-1R1-11011-11R1-120H0-1F2 
400 DATA 0,1,12,30,60,84,95,106,119 >W 
,127,142,159,190,213,239,253,284,31 
9,338,379,402,426,478,506,568,638,6 
76 

410 DATA tt.JI«KJI2H2I4JHJIHIUIH2G2H >UE 
4I2FEF2G2K2H6H4I2JIJGIKL2K2J2K 
420 DATA XDCDCXDCXXKXXXXDC >CQ 
XDCXDCDCXXXXXXDCXXXXDCD 
C 

430 DATA 9B9B9B9B9B9B8B,3A83A87A83A >QK 
83A87A2e2Ae3A2e2Ae3A292A83Ae5A8 
440 DATA Y2OU20Y2OU20X2NY20U2PU2PR2 >6L 
NU2NR2NU2NW28X2NV20V2DV2NX2NN20S2DX 
2PZ2PW2RW2RU2PV2PW2QV2QX2QU2N20 
450 DATA 9C9C9C9C9C9C9C9C9C9CDC,9B9 >GE 
B9B9B9B9B9B9B9B9B2B, 989898989898989 
89898A8 

460 DATA 09Q3Q3R396R3P3R3P3R3U3R9Q3 >KK 
R3U3Q6S6T6R3U6S2R2Q, 9C9C9C9C9C9C9C9 
C9C9CDC 

470 DATA S2Bi2Bt2Be2B82Be2B82B«2B62 >RH 
M2BS2B82B82M2Be2BS2BI2Be2B82B«2B8 
2B82Be2Be2Be28t2Be2Be2B«2B84B 
480 DATA A28A28A28A2tA28A2tA}«A28A2 >VG 
8A2eA28A28A28A2«A28A28A2eA2eA28A28A 
28A28A28A28A28A28A28A28A28A28A8 
490 DATA 15,23,«A8QeWAtAeD«Ve,NSSl >PV 
QIEC8QNXGNK, 8S8T8A8E8E8E8B8. TEHAPB8 
FEWECIP 

500 DATA 8Q§C8H8A«.eV8Pe,ABLEPIEPeA >EN 
DDI DE , 80888G888C8B888 , VECVCEWtEPAT 
EH 

510 DATA 80êN88e0888U8C8,EJIC8ABCAD >EH 
I 8ENNI , 88eU8Dej8B88eTe, VNBADDE8HKBLH 



EH 

520 DATA 8U888EeAeCeEi8e,5AIM«FEGHE >EH 
6YIME, 8V9N8 CaiM t C g8,HIR0IR0IWCAH 
HE 

530 DATA 88êD80e88«888Ne,VN0DDEeNGZ EF 
EQBI3, el8E8B8OeE8A808, APACKDEH8QADI 
EH 

540 DATA «*J8ie08CeB8D«:8,GH0FQL8EJI >GN 
TIGCE,8E8E8E8B8S8D8E8 
550 DATA 1,A,2,T,3,L,4,S,-1,ATLSEZB ;DA 
RIXYHM0UNC0F6KPDWVJ 

560 DATA 10,23, ABCX8ECKS, G8F8A8C8C >YX 
8, JOGPFONCJR, K*H§E8F8D8,BGEIFE8flLJ 
570 DATA 88F8D8G8«e,N0E0XJFGE,0«e8 >HR 
F8L88G , ACED8UEF I F , D8F8F888F8, LJRFTO 
DLCJ 

580 DATA P8G8k:eC8Ae,00LEFêVG0L,0eEe >JV 
P8G8E8. ILFJ8WFGRL, 8080808880, XLQNON 
YFFJ 

590 DATA 8jeLeCe088,ZFJ8KEZADF,eE8G >HF 
808B8I , UOLPOJROHF ,ej8F8R8P8H, CDFE8L 
NFEF 

600 DATA 1,P,2,H,3,0,4,T,-1,PH0TREU >DD 
VLICIGBASMDKXFBJZNY 

610 DATA 10,23,ABCDE6MP[|I,EeE8CeE8B ;>YR 
8,FBJECIKILG,D8I8R8A«Qe,EHGM<ieClH 
620 DATA 88G8E8J8Fe,EHIRXCIGGI,T8«8 >J« 
I8R88F,BLSI8I0PCI,L8I8G888ie,0ITBRQ 
NEXI ' 

630 DATA E8F8JIEei8,LBRTEB1ILG,Q8Fe >JF 
R8F8U8, IFIHaUTIF,8EeGeE888R, ZRFEHH 
PVRI 

640 DATA et*8F8H8Re«,ZBTeEPDPUB,8C«E >JZ 
8LeueA,EYYCPXIELG,eP8GeReKei,HE0Bei 
HHBF 

650 DATA 1,P,2,0,3,L,4,K,5,A,-1,POL >HN 
KARTSEYHNVHXICUZBDQN6FJ 
660 DATA 10,23, ABCDE«6P0F,B8MI8E«3 )YD 
8,FHBI IEHGFI , G8F«J868L8, ETCDFSeDFR 
670 DATA WD8A8E8E8,KLEMEHAFHE,L8ee >HQ 
J808«J,BHSE8EA0RE,N«EiK8««B8,HVnMlB 
NOHE 

680 DATA E80eFeV8Se,JBHKE8AJBK,F8Se >H1 
H8U8L8 , EHEE8XEHEA, ejetWEeMO, YBLBHA 
FEJ6 

690 DATA «T8F8A«T88,PFI8NELAEJ,8H8Z >HY 
8J8J8D, GFHDLOAED J , 8A8R8Y8H80 , ZEAE8E 
YEFL 

700 DATA 1,T,2,0,3,0,4,U,5,E,-1,TOQ >HJ 
UEISNFRCLNWAKZBDXHYPBVJ 
710 DATA 15,23,808B8B8ReiiF8B8,EBDZ >NR 
Ft3HD8DHGB0:,8J8BeB8I8F8P8F8,0HDNBJ» 
MFN6BJHD 

720 DATA 86«F8IWeF8A«L8,M0DIBNJHt6 >EV 
8F0DH, 8L888F888B80888 , RHDR JH8EBJIU1 
FH 
I 730 DATA 8LSI88*B#8«HeG8,HYFjeABCBD >EE 



Ho! 



SJIIK,«MC«HtC«LW«L«,BXXBfDHICFCBB | 

FH 

740 dat» tnmmnBÊsm,fs>naMi >fp 

8QBRK,«l«BM«IM«Heie,RPIWRPHieSIJL 

TH 

750 DATA MiBMMIlMfr^DFKFNWV >FK 

MFULH,MeH8M6H6B«NS6«,BNIGF«HMNHG0 

FJ 

760 DATA 6D«6SF««eH«B9J«.TBB(f(H8BUL GC 

BDFLT,e08«eD§6eD8H«H8 

770 DATA 1,B,2,A,3,Z,4,R,-1,BAZRJIN >DZ 

EOLKUSGTHPCVMQYNFXD 

780 DATA 10,23,ABCDA8EBHF,C«P§B8B«P >¥R 

e,EDIFJDG6FK,FêieMCepê,FRPAFKêOAN 

790 DATA «8GeK9K8A§,FMQJBABOPF,SMe >JC 

J8E88M , RKPS8NLDGF , A8 J80888E8 , P JUPKV 

FKPF 

BOO DATA TeA8P«Z«Fe,NGNt;FSDYNK,F8F8 >JU 

ueMeGe,KDKF8FGNFK,eT8S8H888N,NNIPEP 

DPKF 

B10 DATA 8D8Aei8A«e,ZKN«RFYPYF,8FeP >JB 

eVIDSZ , EABX JFGTNF , 8A8DM8N8J , WFNJSM 

KFHF 

820 DATA 1,L,2,0,3,Y,4,A,-1,L0YACES >DB 

VDNRKTUGIHPXQFMJHZB 

830 DATA 15,23,8MBSML§H«IIIS,EIPC >PX 

FIQI8BEEIXI,e08F8N8G8Y8V8N«,NDPGHie 

HVDGFIPX 

840 DATA 8F8D§EeieH8A8Ae,BHDEFAIGei >EM 

VICIG,8Ee8ei§e6E8Q8ee,LB6GIG8NGIJIG 

FI 

B50 DATA 8H8iee8BeME8Ee,KIIJ8ABCDE >ED 

8RGDN, 8e8B8M8ieF8eeF8, N0BAAFA8KBFW 

FG 

860 DATA 8DeêffiSYêF8PeM,DLPA9CINA >FU 

«EDGZ,eL8Be«8Vee8ZeBe,0SARFTPI8H6FJ 

JI 

870 DATA MeF«P§eeB8Mle,0DPAAI8NFV >FB 

DMBRR,8J8U8G8B8V8B8F8,BJJBGIFV8INVP 

AI 

880 DATA §D«F8VeF§GeV8A8,FADGIV8UGF >GH 

NDRI6,8I8I8I8I8I8E868 

890 DATA 1,S,2,A,3,V,4,0,5,N,-1,SAV >HM 

ONIRGEPJBWCHUMTYQFLKXZD 

900 DATA 14,17,8J8JT88F8GB«H8,eiJKG >& 

TFELE8HEF , A8CDE8DKBHMJNE , 8L8E86E8MC 

KKEF 

910 DATA 0TEGECUePB«ie,8JAQLBHJ0TR >ZB 

CEF , 8SBCN8 JP8LC08B, K8KEF80T88E8BP 

920 DATA B0ES§ABHDELEFe,8BF8MJSJLF8 >AT 

PED , BL80LTBKE08A8T, FEMJPT8F8D JTP 

930 DATA 8LETP8GEFH.GLE,ABCLAQEIEKe >A8 

LJO, E88EQ8F0LEFC8O, 0TNPEF80JJCLPE 

940 DATA ePEEF8GEFBKJTF,l,C,2,0,3,U >VW 

,4,P,5,E,-1,C0UP£5DMVALRBGTNHQZI 

950 DATA 15,t5,EFGFHIJK8EKHKDC,LMFH >NP 

K8FNLDGCD8B, HLXB8ECGKDBK86, HCKJJK8 



DKMKKHK 

960 DATA KB8C8GF8DK8ABCD,FKBKDFW;8D >EL 

F8GKK,A8ADKGKDK8FI*:B6,K0C8§CJJflK8C8 

J8 

970 DATA eFJJCJ8eDLCQK8R,ADC8LNRDKH >FM 

HK8FC, DCRLGk8L«C8DFBS, RKH8F8IWHKG8D 

KF 

9B0 DATA FAKMQKPKBKDKSD,CJ8FPCHKee >GD 

GFGKD,BKGJ«GKGCBK8KGK 

990 DATA 1,U,2,N,3,I,4,R,-1,UNIRCAT .UQ 

LYSEOVMPGDBZ 

1000 DATA 14,17,eD8E8B8F«BeG8F,CHIJ >HF 

BKL J8 JM JFK , 8JNN J8C0JLHJ8 J, BNJKLA8 JF 

AJ8CL 

1010 DATA §PHFAJHF»:6JM8,QR§JJeAJ8R >AB 

8ABC,8LBeHGJFKLAeNK,JDHJFFJ8F'8CNJA 

1020 DATA 8HLA»:AARKFJ8J,LJKAAJ8KLA >AT 

KAGJ , 88GRHFLJ JA8GR8, GCKF J8RAAH JêGC 

1030 DATA 8ER8ERLG8J0KCL,PRLERF8JAA >AG 

JHNJ, 8BM8KAJ8KN8A, CGGKAJF80CNJGA 

1040 DATA 8JFAJA8NJAeAHJ,l,S,2,P,3, >HQ 

A,-1,SPAQDRTUBEINMLVCG0» 



10 GOTO 290 >TA 

20 PLOT 0,385: GOTO 50 >PW 

30 a=o*32:IF LEN!x(=l THEN a=a+8 >ZB 
40 PLOT a,367-i*16,b >Nfl 

50 TAG:PRINT x;:TAGOFF:P£TURN >AJ 
60 t(h)=n:v=v+STR«(h):w=w+n:u=u+RIG >WD 
HT*(STR*(hi,2) 

70 g= " ":s=n >BA 

80 b=3:IF ASC(n)>64 THEN b=l >VG 
90 FOR i=0 TO 1-1:F0R j=0 TO k-1 : IF >YN 
c(j*l,i+l)Oh THEN 120 
100 IF h>9 THEN x=" ":GOSUB 30 >XL 
110 x=n:GOSUB 30 >LK 

120 NEXT:NEXT:c=h:a=550:IF h>13 THE >TN 
N c=c-13:a=614 

130 x=s:PLOT a,222-c*16,l:60SUB 50 >BK 
140 a=27+INSTR(t,t(h)):L0CATE a, 1:1 >ET 
F a>40 THEN LOCATE a-13,2 
150 PRINT q:RETURN >PA 

160 FOR 1=0 TO 1:M0VE 0,369-i*16:DR >NT 
ANR k*32,0, 1 

170 IF i<5 THEN MOVE 510+1*32,0: DRA >JL 
I* 0,208 

180 IF K14 THEN MOVE 510. i»16:DRAW >HD 
R 128,0 

190 IF i<k+! THEN MOVE 1*32,369-1*1 >QC 
6:DRANR 0,1*16 

200 NEXT:2=FRE(""):RETURN >WD 
210 PRINT CHR*(7):x="APPUYER SUR UN >BC 
E TOUCHE ":GOSUB 20 



220 CALL MB06:60T0 260 >QB 

230 PRINTtl,y+" DEJA CHOISI ": x="VOU >UV 

LEZ-VOUS MODIFIER 0/N":GOSUB 20 

240 o=UPPER«(INKEY$l:IF o=""0R INST >ZX 

R("ON",o)=0 THEN 240 

250 IF o="0" THEN e=t >NG 

260 CLS*l:x=STRING$(27,32):G0SUB 20 >MF 

iRETURN 

270 v=FNx(v,STR«(h)):»=FNx(«,Uh)): >LY 

u=FNx(u,RIGHT«(STR*ih),2)! 

2B0 n=MID«(STR»(h),2):5=" *ig«t(h): >AP 

GOSUB B0:e=0:RETURN 

290 DEFINT a-l:DEFSTR n-y:DIM c(3,4 >NH 

,92),t(26) 

300 DEF FNx(x,y)=LEFT*(x,INSTR(x,yi >QP 

-l)+MID«(x,INSTR(x,y)+LEN(yl) 

310 MODE hLOCATE 8,12:PRINT"LECTUR >CH 

E MUSIQUE EN COURS" 

320 DPENIN"oiusic|ue. f ic " :FOR 1=1 TO >YA 

3:INPUT#9,a:F0R j=l TO 4:F0R k=l TO 

a 

330 lNPUT#9,c(i,j,k):NEXT:NEXT:NEXT >RA 
: CLOSE IN 

340 MODE l:L0AD"inage.bin",lC00O >CX 
350 LOCATE 2,2:PRINT CHR«(164)+"DI >ZF 
STEFANO Jean Franck NOVEMBRE 1987" 
360 LOCATE 2,24:PRINT"APPUYER SUR U >ME 
NE TOUCHE POUR CONTINUER" 
370 INK 2,20,6:INK 3,6,20:SPEED I* >GQ 

45,45 

380 FOR 1=1 TO 3:h(i)=0:g(i)=0:h(i) >JE 
=0:NEXT 

390 h(i)=b:IF b!ll+b(2)+b(3l>=246 T >LC 
HEN FOR 1=1 TO 3000:NEXT:G0TD 380 
400 IF MŒV»<>"THEN 470 >TF 
410 h=MIN(h(l),hl2),h(3>>:i=l:j=l >AF 
420 IF h=h(2)THEN i=2:j=2 ELSE IF h >UP 
=h(3)THEN 1=3: j=4 

430 b(i)=b(i)+l:a=b(i):b=ti(i) UY 
440 IF g(il=l THEN g(i)=0:a=a-l:SOU >WA 
ND j,l,i(i),0:b=b+i(i):b(i)=a:GOTO 
390 

450 IF c(i,4,a)=0 THEN c=ROUND(c(i, >JZ 
2,al*0.B):i(i)=c(i,2,a)-c:9(i)=l EL 
SE c=c(i,2,a) 
460 sound i,c(i,t,a>,c,c<i,3,a)ib>* >nm 

+c:GGTO 390 

470 ERASE c: INK 2,20: INK 3,6 >VE 

480 MODE l:MND0Wl,l,27,l,l:tlIND0W -NO 

12, 32, 40, 3, 1 1 : t="ABCDEFGHI JKLMN0P9R 

STUVWXYZ" 

490 PRINT'MONOCHRGtlE Oui - Non":GOS >VL 

UB 240: INK 3, 6: IF e=l THEN INK 3,13 

500 CLS:PRINTtl,CHR$(7)+"8UELLE GRI >HH 

aE (l-10"j:INPUT»l,")";i 

510 g=VAL(n):IF g<l OR g>10 THEN 50 >BL 



10 



rm 





520 e=0:p="":r="":v="":KF""!u="" >2J 
530 LOCATE 28,1:PRINT LEFT«(t,13):L >r!X 
OCATE 28,2:PRINT RIGHT*(t,13) 
540 0PENIN"grille"*HID»(STR«<g>,2H >DF 
".fic":INPUT#9,k,l 

550 DIX c<k,l):F0R 1=0 TO 1-1:F0R j >NF 
=0 TO k-l:INPUT#9,x 

560 b=3:IF x="0" THEN x=STRING$(2,l >JA 
43):b=2 

570 GOSUB 30:c(j+l,i+l)=VftL(x):NEXT >Kfl 
:NEXT 

590 INPUT*9,h:IF hO-1 THEN INPUTI9 >UX 
,n:p=p+STR»lh)+n:GOSUB 60:G0T0 580 
590 lNPUT#9,r:CLDS£lN >RU 

400 FOR i-=0 TO 12:x=MD»(STR*(i*l), >LN 
2):PL0T 510,206-i*16,3:60SUB 50 
610 x=MID«(STR*(l+14),2):PL0T 574,2 >CC 
06-i«16:60SUB 50:NEXT:x=CHR*(13)+CH 
RtllO) 

620 LKATEI2,l,3:PRINTt2, "APPUYER"* >BE 
x+" SUR"<-x+"<ENTER)"txf APRES"+«+ 
" VOTR£"+ï+" CHOIX" 

630 GOSUB 160:y=CHR«i7)+"N0HBRE" >AN 
640 PRINT*l,y; : INPUT*1,«:IF if"0" T >K6 
HEN 790 

650 h=VAL(n):IF ti<l OR h>26 OR INST >CD 
R(p,8IRKh»O0 THEN 640 
660 IF INSTR(v,STR«(h))<>0 THEN 60S >ZV 
UB 230; IF e=0 THEN 640 
670 IF e=l THEN GOSUB 270it(h)=n:G0 >HU 
TO 630 

630 y=CHR»(7)+"CARACTERE" >UQ 
690 PRIMT#l,"N01BRE?";h;:LOCATE#l,l >BK 
2,l:PRINT»l,y;:INPUT»l,n;n=UPPER$(n 
) 

700 IF INSTR(t,n)=0 OR INSTR(f>,n)<> >MZ 
THEN 690 

710 IF INSTRlw.nlOO THEN GOSUB 230 >TR 
:IF e=0 THEN 690 

720 IF e=l THEN d=h:o=n:h=VAL(MID*( >AK 
u,INSTR(»,n)«-l,2),:G0SUB 270:h=d: 
n=o 

730 GOSUB 60:IF LEN(«XLEN(r)THEN 6 >EE 
30 

740 PRINTI1, "BRILLE TERMINEE": GOSUB >JM 
210 

750 PRINTtl, "VERIFICATION DE LA GRI >WL 
LLE":GOSUB 210 

760 FDR h»l TO LEN(r):IF t(h)<>MD» >QK 
(r,h,l)THEN d=h:S0SUB 270:h=d:e=l 
770 NEXT:IF e=l THEN PRINTI1, "GRILL >YH 
E INC0RRECTE":GOSUB 210:e=0:G0T0 63 


780 PRINTtl, "GRILLE CORRECTE BRAVO" >QK 
:GOTO 810 
790 FOR h=l TO LEN(r):IF tlhlOMID» >FU 



lr,h,l)THEN t(h)=f1IM(r,h,l):n-t(h) 
: GOSUB 70 

800 NEXT:60SUB 160 >NT 

810 GOSUB 210:CLS:L0CATE 3,10:PRINT ,-CN 
"VOULEZ-VOUS FAIRE UNE AUTRE GRILLE 

820 LOCATE 15,12:PRINT"0ui - Non'tC >XT 
HR«(7):G0SUB 240 

830 ERASE ctIF ««I THEN 500 >UF 
840 ERASE t:CLEAR:M0DE 2 >TXe 



10 DEFSTR d-f:DEFINT i-n 
20 DEF FNd=MM(d,j|l> 
30 i= : 'numéro de la grille 
40 LOCATE 5,12:PRINT"SAUVEGARDE GRI 
LLE No"; 1 j'EN COURS" 
50 0PEN0UT"grille ,, +MD»(STR*(i),2> + 
".fic'iREAD »,n:HRITE#9,«,n 
60 FOR k=l TO n:READ d:FOR i»l TO « 
:e=FNd:W:!TE#9,ASC(e)-64:NEXT:NEXT 
70 READ i!lRITE#9,«tF lO-l THEN R 
EAD e:HRlTE«9,e:G0T0 70 
80 READ e:l*'lTE#9,e:CL0SE0UT;NEXT 
90 CLSlLOCATE 7, 1 2: PRI NT "SAUVEGARDE 
GRILLE TERMNEE":END 
100 DATA : 'noubre de colonnes, nombr 
e de lignes 

110 DATA : 1er ligne de la grille 
120 DATA i'2sm ligne de la grille 
130 DATA : 3e«e ligne de la grille 
140 DATA : 4ene ligne de la grille 
150 DATA :'5eme ligne de la grille 
160 DATA :'6ene ligne de la grille 
170 DATA : '7e»e ligne de la grille 
180 DATA : 'Bene ligne de la grille 
190 DATA :'9ene ligne de la grille 
200 DATA '10cm ligne de la grille 
210 DATA lleme ligne de la grille 
220 DATA 12ene ligne de la grille 
230 DATA 13ene ligne de la grille 
240 DATA 14e«e ligne de la grille 
250 DATA 15ei»e ligne de la grille 
260 DATA '16ene ligne de la grille 
270 DATA '17e»e ligne de la grille 
280 DATA 18e»e ligne de la grille 
290 DATA 19e«e ligne de la grille 
300 DATA '20e«e ligne de la grille 
310 DATA '21ene ligne de la grille 
320 DATA '22eie ligne de la grille 
330 DATA '23e»e ligne de la grille 
340 DATA : nombres, caractères donne 
s par 1 'ordinateur 
350 DATA -1: -fin de données 
360 DATA : solution grille 



SERVEUR 
MINITEL 

N'oubliez pas 
36.15 code MHZ 




La 8. A. !.. permet un dialogue direct a 
la réduction 

Les petite* annonces ouvrent la porte ■ 
bonnet affaire» ! 



ANCIENS 
NUMEROS 




HA 
HE 
>HC 
•HD 
HE 
>HF 
HG 

m 

AB 
■■AC 

AD 
X£ 

AF 
A6 
AH 

«u 

iAK 

'■AB 

AC 

AD 
>AE 

•HD 

m 

■HF# 



Disquette HS 1 
Disquette HS 3 



Disquette HS 2 
Disquette HS 4 



Disquette HS 5 □ Disquette HS 6 
'J Disquette HS 7 □ Disquette HS 8 
D Disquette HS 9 



13 F 
15 F 
15 F 
15 F 
. 15 F 

140 F 
140 1 

140 F 

40 F 
140 F 



Chaque disquette comporte tous les programmes 
du n° hors-série correspondant. Les abonnés à CPC 
bénéficient du toril unitaire de 110 F pour les 
disquettes. 

Nom 

Adresse 

Code postal 

Ville 

Signature 



X 



Merci d'écrire en majuscules. 
Ci-joint un chèque libellé à l'ordre 
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PUZZLE 




10 CLS 

20 h=17500 

30 FOR i=0 TO 409 

40 1=1*10+300 

50 REflD al»,a2»,a3«,a4*,a5»,a6«,a7»,a8« 

,a« 

60 al=VALi"!."+Al»!:a2=VAL("!,"*a2*):a3=V 

AL("îc"+a3«>:a4=VAL("i"+a4$):a5=VAL("S<"+ 

a5*> :a6=VAL ( V+ji$) ; a7=VAL ("Si"+a7*l : aS 

=VAL("(,"+a8*):af=VAl I"«"tsf») 

70 an=al+a2+a3+a4+a5+a6*a7+a8 

90 IF HEX«(an)=HEX$(a<) THEN 90 ELSE PR 

INT"erreur en ligne ";1:END 

90 LOCATE 5,10:PRINT"ligne nuMra : M 

100 POKE h+0,al 

110 POKE h+l,a2 

120 POKE h+2,a3 

130 POKE h+3,a4 

140 POKE ht4,a5 

150 POKE h»5,a4 

140 POKE h*4,a7 

170 POKE h+7,aB 

180 h=h+B 

190 NEXT 



Ma/gré le soleil qui frappe 
votre moniteur et le sable 
qui s'est infiltré entre les 
touches du clavier, vous 
continuez à sourire 
béatement devant un casse- 
fête informatique, te principe 
est très simple : l'ordinateur 
mélange des carrés de 
couleurs, votre tâche consiste 
à former une figure en 
déplaçant ces petits carrés. 
Et cela est loin d'être 
évident. 

Tapez et lancez le 
programme PUZZLE. Celui-ci 
va sauver un PUZZLE J.B/N. 
// ne reste qu'à taper 
PUZZLE 2, à le sauver puis 
à lancer le tout par un RUN 
"PUZZLE 2". 



200 SAVE 'pu:z!el",b,i<445C,32B3 

300 DATA CD,D3,4A,3E,01,CD,OE,BC,3CO 

310 DATA 3E,00,01,dA,0A,CD,32,BC,20E 

320 DATA 3E,01,01,03,03,CD,32,BC,201 

330 DATA 3E,02,01, 09,09, CD,32,BC,20E 

340 DATA 3E,03,01,0C,0C,CD,32,BC,215 

350 DATA 3E,00,32,B6,03, 32,67,03,215 

360 DATA 32,B8,03, 32,89, 03,CD,71, 319 

370 DATA 4B,CD,DE,4E,CD,14,BC,3E,41F 

3B0 DATA 45,CD,20,49,3E,3C.CD,20,2E2 

390 DATA 49,3E,3D,CD,20,49,3E,35,24D 

400 DATA CD,20,49,3E,47,CD,20,49,2F1 

410 DATA 3E,3F,CD,20,49,3E,3E,CD,2FC 

420 DATA 20,49,3E,37,CD,20,49,3E,252 

430 DATA 01,CD,DE,BB,21,51,01.11,2EB 

440 DATA 41,00,CD,C9,BB,11,01,01,2A5 

450 DATA 21,00,00,CD,F6,BB,11,01,2B1 

460 DATA 01,21,FD,FE,CD,F6,BB,11,4AC 

470 DATA FE,FF,21,FD,FE,CD,F6,BB,697 

480 DATA 11,FE,FF,21,00,00,CD,F6,3F2 

490 DATA BB,21,5B,01,1!,37,00,CD,24D 

500 DATA C9, BB, 1 1 , 15, 01 , 21 , 00, 00, ICC 

510 DATA CD,F6,BB,11,15,01,21,E9,3AF 

520 DATA FE,CD,F6,BB,11,FE,FF,21,5AB 

530 DATA E9,FE,CD,F6,BB,11,FE,FF,473 

540 DATA 21,OO,0O,CD,F4,BB,CD,A8,414 

550 DATA 4A,CD,£3,47,CD,5E,49,CD,482 

540 DATA 24,49,CD,03,BB,CD,19,BC,39C 



570 DATA CD,1B,BB,30,F5,F5,CD,49,4F3 
580 DATA 45,F!,FE,41,CC,5D,47,FE,503 
590 DATA 64,CC,A5,44,FE,73,CC,0D,445 
600 DATA 44,FE,63,CC,C7,46,FE,7A,4FB 
610 DATA CC,91,45,FE,7B,CC,BB,45,4E4 
620 DATA FE,44,CC,37,46,FE,76,CC,4ED 
630 DATA 59,46,C3,F1,4B,21,B6,03,378 
640 DATA 34,3E,09,BE,38, 18,21,00, 1B4 
650 DATA 1C,CD,75,BB,21,.B9,03,7E,374 
640 DATA C6,30,E5,CD,5D,BB,E1,2B,4CC 
670 DATA 3E,B5,BD,20,F2,C9,7E,D6,4DF 
4B0 DATA 0A,77,23,18,DB,3A,B8,13,29C 
690 DATA 47,C5,2A,A2,13,FD,21,B8,3C1 
700 DATA 0B,CD,87,47,ED,5B,A4,13,3A5 
710 DATA 2A,A2,13,CD,E5,45,2A,8B, 388 
720 DATA 13,FD,21,BB,0B,CD,CC,47,3D4 
730 DATA C1,10,DE,CD,16,4D,C9,3A,3E2 
740 DATA BB,13,47,C5,2A,9C,13,FD,3AD 
750 DATA 21,B8,0B,CD,B7,47,ED,5B,3C7 
760 DATA A6,13,2A,9C,13,CD,E5,45,389 
770 DATA 2A,98,13,FD,21,B8,0B,CD,383 
780 DATA CC,47,C1,10,DE,CD,4B,4D,424 
790 DATA C9,06,OF,C5,E5,D5,06,08,36B 
800 DATA C5,04,10,1A,77, 13,23,10,162 
810 DATA FA,ED,4B,AE,13,09,EB,09,3F0 
B20 DATA EB,C1,10,EC,D1,E1,01,B0,50B 
B30 DATA FF,09,EB,09,EB,C1,10,DB,493 
B40 DATA C9,3A,BB,13,47,C5,2A,98,39C 
650 DATA 13,FD,21,B8,0B,CD,B7,47,38F 
860 DATA ED,5B,9B,13,2A,9A,13,CD,397 
B70 DATA 9E,47,FD,21,Be,0B,2A,9C,38C 
880 DATA 13,CD,CC.47,C1,10,DE,CD,44F 
890 DATA F1.4C,C9,2A,8A,13,FD,21,3E6 
900 DATA B8,0B,CD,E9,46,ED,5B,8C,493 
910 DATA 13,2A,8E,13,CD,7B,46,2A,296 
920 DATA 88,13,FD,21,B8,0B,CD,3B,381 
930 DATA 47,CD,38.4E,C9,2A, 90, 13,330 
940 DATA FD,21,B8,0B,CD,E9,46,ED,4CA 
950 DATA 58,92,13,2A,94,13,CD,7B,319 
960 DATA 44,2A,94,13,FD,21,B8,0B,2FA 
970 DATA CD,38,47,CD,7B,4E,C9,04,3AE 
9B0 DATA 08,C5,D5,E5,06,08,C5,3A,394 
990 DATA B6,13,47,1A,77,2B,1B,10,1F7 
1000 DATA FA,ED,46,60, 13,09, EB, 09, 3F2 
1010 DATA EB,C1,10,EA,E1,D1,01,50,4A9 
1020 DATA 00,09,EB,09,EB,C1,10,D9,392 
1030 DATA C9,2A,88,13,FD,21,B8,0B, 36F 
1040 DATA CD,E9,46,2A,88,13,ED,56,409 
1050 DATA AA,13,CD,0£,47,2A,8A,13,2A6 
1060 DATA FD,21,B8,0B,CD,3B,47,CD,3FA 
1070 DATA 7A,4D,C9,2A,96,13,FD,21,381 
1080 DATA BB,0B,CD,E9,44,2A,96,13,392 
1090 DATA ED, 5B, AC, 13, CD, OE, 47, 2A, 353 
1100 DATA 90,13,FD,21,BB,06,CD,38,389 
1110 DATA 47,CD,BA,4D,C9,06,08,E5,3D7 
1120 DATA C5,06,08,C5,3A,67, 13,47, 2E3 
1130 DATA 7E,FD,77,00,FD,23,23, 10,345 
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1140 DATA F7,ED,5B,82. 13,19, Cl, 10, 3EE 

1150 DATA EA,C1,E1, 11,50,00,19, 10,316 

1160 DATA DE,C9,06,08,C5,E5,05,06,43A 

1170 DATA 08.C5,3A,66,13,47,1A,77,2A8 

1180 DATA 13,23,10,FA,ED,4B,B4,13,33F 

1190 DATA 09,EB,09,EB,C1,10,EA,D1,474 

1200 DATA E1,01,50,00,09,EB,09,EB,31A 

1210 DATA C1,10,D9,C9,06,0B,E5,C5,42B 

1220 DATA 06,0B,C5,3A,B7,13,47,FD,31B 

1230 DATA 7E,0O,77,FD,23,23,10,F7,33F 

1240 DATA ED,5B, 62,13,19, Cl, 10,EA,3E1 

1250 DATA Cl, El, 11, 50,00,19, 10,D£,30A 

1260 DATA C9,3fl,B8,13,47,C5,2A,88,38C 

1270 DATA 13,FD,21,B8,0B,CD,87,47,38F 

1280 DATA ED,5B,8B,13,2A,9E,13,CD,38B 

1290 DATA 9E,47,FD,21,BS,0B,2A,A8,39B 

1300 DATA 13,CD,CC,47,C1,10,D£,CD,44F 

1310 DATA CC,4C,C9,06,0S,C5,06,10,2Ch 

1320 DATA 7E,FD,77,00,23,FD,23,10,345 

1330 DATA F7,ED,4B,AE,13,09,C1,10,3CA 

1340 DATA EC,C9,06,0F,C5,D5,E5,O6,44F 

1350 DATA O8,C5,06,10,7E,12, 13.23, 1A9 

1360 DATA 10,F»,ED,46,AE, 13,09, E5,3F1 

1370 DATA EB,09,E5,D1,E1,C1,10,E9,545 

1380 DATA El, Dl, 01, 50,00,09, E5,EB,3DC 

1390 DATA 09,E5,D1,E1,C1,10,D5,C9,50F 

1400 DATA 06.08.C5, 06, 10,FD,7E, 00,264 

1410 DATA 77,23,FD,23,10,F7,ED,4B,3F9 

1420 DATA AE,13,09,C1,10,EC,C9,21,371 

1430 DATA 4B,C1,06,08,E5,C5.06,08,2CF 

1440 DATA E5,C5,06,10,3E,FF,77,23.397 

1450 DATA 10,FA,06,10,3E,FO,77,23,2E8 

1460 DATA 10,FA,C1, El, 11, 00,08,19, 2DE 

1470 DATA 10, E6.C1, El, 11,50,00,19,312 

1480 DATA 10,DA,21,C8,C3,06,08,E5,389 

1490 DATA C5.06,08.E5,C5,06,10,3E,2D1 

1500 DATA 0F,77,23,10,FA,C1,E1,11,366 

1510 DATA 00,08,19,10, EE.C1, El, 11, 2D2 

1520 DATA 50,00,19,10,E2,21,OA,17,19D 

1530 DATA CD,75,BB,3E,4E,CD,5D,BB,46E 

1540 DATA 3E,6F,CD,5D,BB,3E,6D,CD,40A 

1550 DATA 5D,BB,3E,62,CD,5D,BB,3E,3DB 

1560 DATA 72,CD,5D,BB,3E,65,CD,5D,424 

1570 DATA BB,3E,20,CD,5D,BB,3E,o4,3A0 

1580 DATA CD,5D,BB,3E,65,CD,5D,BB,46D 

1590 DATA 3E,20,CD,5D,BB,3E,63,CD,3B1 

1600 DATA 5D,BB,3E,6F,CD,5D,BB,3E,3EB 

1610 DATA 75,CD,5D,BB,3E,70,CD,5D,432 

1620 DATA BB,3E,20,CD,5D,BB,3E,3A,376 

1630 DATA CD,5D,BB,21,05,03,CD,75,350 

1640 DATA BB,3E,F0,CD,5D,BB,21,06,3F5 

1650 DATA 03,CD,75,BB,3E,61,CD,5D,3C9 

1660 DATA BB,21,03,05,CD,75,BB,3E,31F 

1670 DATA F2,CD,5D,BB,3E,64,CD,5D,4A3 

1680 DATA BB,21,13,03,CD,75,BB,3E,32D 

1690 DATA 7A,CD,5D,BB,21,14,03,CD,364 

1700 DATA 75,BB,3E,F1,CD,5D,BB,21,465 



1710 DATA 03,13,CD,75,BB,3E,66,CD,384 i 

1720 DATA 5D,BB,3E,F3,CD,5D,BB,21,44F 

1730 DATA 05,16,CD,75,BB,3E,F0,CD,413 

1740 DATA 5D,BB,2!,06,16,CD, 75,66,352 

1750 DATA 3E,73,CD,5D,BB,21,13,16,2E0 

1760 DATA CD,75,BE,3E,78,CD,5D,66,498 

1770 DATA 21,14,16,CD,75,6B,3E,F1,377 

1780 DATA CD,5D,B6,21,16,05,CD,75,363 

1790 DATA BB,3E,F2,CD,5D.BB,3E,63,471 

1800 DATA CD,5D,BB,2i, 16,13, CD, 75,371 

1810 DATA BB,3E,76,CD,5D,BB,3E,F3,485 

1820 DATA CD,5D,86,C9,06,O0,CD,39,36A 

1830 DATA BB,C9,3A,E1, 05,47, 21, E8,3F4 

1840 DATA 03,C5,E5,7E,FE,00,CC,91,486 

1850 DATA 45,FE,01,CC,A5,46,FE,02,3FB 

1860 DATA CC,5D,47,FE,03,CC,37.46,3BA 

1870 DATA FE,04,CC,BB,45,FE,05,CC,49D 

1880 DATA C7,46,FE,06,CC,0D,46,FE,42E 

1890 DATA 07, CC, 59, 46,E1, Cl, 23, 10,347 

1900 DATA DO,C9,3A,DC,05,FE,01,2B,3DE 

1910 DATA 0A,FE,02,28,5F,FE,03,CA,35C 

1920 DATA 21,4A,C9,21,03,19,CD,75,2B3 

1930 DATA BB,CD,84,4A,3E,31.CD,5D,3EF 

1940 DATA BB,3E,32,32.E1, 05,06,31, 27A 

1950 DATA 21, 88,13, D0.21, 95,49, DD.375 

1960 DATA 7E, 00,77, 23,DD,23,10,F7, 31F 

1970 DATA C9,48,C1,60,C1,5F,C!,67,47A 

1980 DATA C1,E0,C3,DF,C3,E7,C3,C8,678 

1990 DATA C3,58,C1,A8,C1,08,C6,98,4AB 

2000 DATA C1,9B,C6,F8.C5,AB,C5,B8,601 

2010 DATA C5,F8,C5,50,Cl,DO,C3,F0,616 

2020 DATA 07, 1B,08,F8,07,E8,07, 18,220 

2030 DATA 08,04, FF,C9, 21, 03,19,CD,2DE 

2040 DATA 75,BB,CD,84,4A,3E,32,CD,408 

2050 DATA 5D,BB,3E,64,32,El,05,O6,2D8 

2060 DATA 31,21,88,13,DD,21,EE,49,322 

2070 DATA DD,7E,0O,77,23,DD,23,10,305 

2080 DATA F7,C9,48,C1,64,C1,63,C1,512 

2090 DATA 67,C1,E4,C3,E3,C3,E7,C3,61F 

2100 DATA C8,C3,58,C1,A8,C1,08,C6,4D6 

2110 DATA 98,C1,98,C6,F8,C5,A8,C5,5E1 

2120 DATA B8,C5,F8,C5,4C,C1,CC,C3,5D6 

2130 DATA F0,07,1C,08,FC,07,E4,07,309 

2140 DATA 1C,04,02,FF,C9,21, 03,19,227 

2150 DATA CD,75,BB,CD,84,4A,3E,33,409 

2160 DATA CD,5D,BB,3E,FF,32,E1,05,43A 

2170 DATA 06,31,21,88,13,DD,21,47,238 

2180 DATA 4A,DD,7E,00,77,23,DD, 23,33F 

2190 DATA 10,F7,C9,48,C1,66,C1,65,465 

2200 DATA C1,67,C1,E6,C3,E5,C3,E7,621 

2210 DATA C3,CB,C3,58,C1,A8,C1,0B,4D8 

2220 DATA C6,98,C1,98,C6,F8,C5,A8,5E2 

2230 DATA C5, B8, C5, F8, C5, 4A, Cl , CA, 5D4 

2240 DATA C3,F0,07, 1E,08,FE,07,E2,3C7 

2250 DATA 07, 1E,02,01,FF,C9,11,FF,300 

2260 DATA FF,3E,00,1B,BA,20,FC,C9,3F7 

2270 DATA 3E,4E,CD,5D,BB,3E,49,CD,3C5' 



2280 

2290 
2300 
2310 

2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
255 ' 
2560 
2570 

2590 
260" 
2610 
2620 
2=30 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2B20 
2830 
' 2840 



DATA 5D, 
DATA 45, 
DATA B6, 
DATA CD 
DATA 08. 
DATA FO 
DATA 00 
DATA CO 
DATA 11 
DATA 00, 
DATA 75, 
DATA 55, 
DATA 66, 
DATA CD 
DATA 21, 
DATA CD, 
DATA 3E, 
DATA 5D, 
DATA 70, 
DATA 8B, 
DATA CD 
DATA 21. 
DATA CD, 
DATA 3E, 
DATA 5D, 
DATA 47 
DATA BB 
DATA CD 
DATA 4A, 
DATA OE, 
DATA 3E, 
DATA 5D, 
DATA 65, 
DATA BB 
DATA CD, 
DATA 3E, 
DATA 5D, 
DATA 2C 
DATA BB 
DATA CD, 
DATA CD, 
DATA OA, 
DATA OE, 
DATA C9, 
DATA 03, 
DATA 11, 
DATA 7D, 
DATA 13 
DATA 50 
DATA 95 
DATA FO 
DATA BE, 
DATA B9, 
DATA E6, 
DATA 2E, 
DATA 04, 
DATA 21, 



BB,3E,56,CD,5D,8B, 
CD,5D.BB,3E,41,CD, 
3E,55,CD,5B,BB,3E, 
5D,BB,C9,21,70,C1, 
3E,FF,77,23,77,23, 
77,23,77,2B,2B,2B 
08, 19, 10, EC, 06,08 
,C1.3E,0F,77,23.77 
00,08, 19, 10,F4,C9 
CD,OE,BC, 21, 05,06, 

,3E,50,CD,5D 
CD,5D,BB,3E,5A,CD, 
3E,5A,CD,5D,86,3E, 
5D,BB,3E,45,CD,5D, 
0D,04,CD,75,BB,3E, 
5D,BB,3E,72,CD,5D, 
65,CD,5D,B8,3E,65, 
BB,3E,20,CD,5D,BB, 
CD,5D,B6,3E,61,CD, 
3E,72,CD,5D,8B,3E, 
5D,B6,3E,3A,CD,5D, 
12,07, CD,75,BB,3E 
5D,D8,3E,20,CD.5B, 
4C,CD,5D,BB,3E,65 

,3E,20,CD,5D.BB 
CD,5D,BB,3E,4F,CD 
3E,46,CD,5D,B6,3E, 
5D,8B,CD,7A,4A,CD 
CD,7A,4A.C9,3E,01, 
BC,21,0A,0A,CD,75, 
4E,CD,5B,B8,3E,69, 

,3E,76,CD,5D,BB, 
CD,5D,66,3E,6l,CD, 
3E,75,CD,5D,88,3E, 
5D,6B,3E,2B,CD,5D, 
!,CD,5D,BB,3E,2C, 
B,3E,32,CD,5D,BB, 
CD,5D,BB,3E,33,CD 
3E,29,CD,5D,BB,3E, 
5D,BB,3E,20,CD,5D, 
16,6B,30,FB,FE,31, 
FE, 32,28, OC,FE. 33, 
18,ED,3E,01,32,DC 
3E,02,32,DC,05,C9, 
32,DC,05,C9,21,16, 
2E,50,1A,BE,C2.2E, 
01, 55,4F, B9, 28,04, 
18,F0,21, 56,4F, 11, 
1A,BE,C2,2E,45,7D, 
4F,B9,28,04,23,13, 
21,A6,4F,11,AE,50 
C2.2E.45, 70,01, E5, 
18,04,23, 13, 1B.F0, 
4F,11,EE,50,1A,BE, 
45,70,01,25,50,69, 
23,13,18,F0,CD,14, 
08, 05, CD, 75, BB, 06, 



3E,3CF 
5D.3D3 
20,391 
06,406 
3E.2B7 
,11,293 
,21,14C 
2B.30A 
3E,23D 
CD, 290 
3E.3E1 
5D.3FC 
4C.3C2 
BB.44D 
43.2B0 
BB.47A 
CD,3F6 
3E.399 
5D.41E 
20.3AE 
BB.442 
59.2CE 
B6.42B 
CD.3DF 
3E.399 
5D.3E3 
46, 3A6 
7A.4BD 
CD, 360 
6B.2FC 

-r, Trc 

ÎE.3EF 
50,413 

0,361 
6B.430 
CD,38B 
3E.3AB 
5D,3AC 
3F.3B4 
,428 
28,425 
28.2C7 
05,265 
3E,323 
4F, 265 
45,29C 

3, 2~A 
6E.260 
01.2DB 
18,217 
1A.32F 
4F.3A5 
21,244 
C2.41E 

8,247 
BC2DF 
16,247 
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2850 DATA 
2860 DATA 
2870 DATA 
2080 DATA 
2890 DATA 
2900 DATA 
2910 DATA 
2920 DATA 
2930 DATA 
2940 DATA 
2950 DATA 
2960 DATA 
2970 DATA 
2980 DATA 
2990 DATA 
3000 DATA 
3010 DATA 
3020 DATA 
3030 DATA 
3040 DATA 
3050 DATA 
3060 DATA 
3070 DATA 
3080 DATA 
3090 DATA 
3100 DATA 
3110 DATA 
3120 DATA 
3130 DATA 
3140 DATA 
3150 DATA 
3160 DATA 



11,9C,4C, 

BB,C1,D1 

05, CD, 75, 

4C,D5,C5, 

01,13, 10 

BB,06,08. 

1A,CD,5D 

F5,CD,7A 

7A,4A,CD, 

6A, 65,2( 

76,6f,75, 

69,63,69, 

61,76,6F, 

6F, 75, 76, 

6F,6C,75, 

3A,B8,13, 

06,08,21 

23, 10, FA, 

4F, 06, 80, 

FA,C1,K>, 

47,C5,11, 

26,50, 1A, 

11,AE,4F, 

1A,77,13, 

E0,C9,3A, 

8E,4F,06, 

77,13,23, 

21,8E,4F, 

1A,77,13 

FF,09,EB 

C1,10,D3 

C5, 11, 1E 



D5,C5,1A,CD,5D,3D7 * 
13,10, F5,21, 09, 38F 
16,06,11, 11, B2,2DC I 
1A,CD,5D,B6,C1,4A6 j 
F5,3E,20,CD,5D,371 | 
11,C3,4C,D5,C5,383 
BB,C1,D1,13,10,3B4 
4A,CD,7A,4A,CD,4E4 
14, BCC3, 84,44, 3EC 
70,65,75,78,20,201 
73,20,66,65,60,324 
74,65,72,64,27, 30B 
69,72,20,74,72,327 
65,20, 6C,61, 73,31F 
74,69,6F,6E,C9,3D3 
47,C5,11,16,4F,2B7 
96,4F, 1A, 77,13,188 
11,1E,4F,21,16,1E2 
1A,77, 13,23, 10.1AC 
E0,C9,3A,B8. 13,479 
A6,4F,06,08,21,241 
77,13,23, 10,FA,247 
21,A6,4F,06,80,2AA 
23,10,FA,C1,10,2A2 
B8,13,47,C5,11,3CB 
08,21, OE, 4F, 1A, 183 
10,FA,11, 86,4F, 29D 
06, 10,C5, 06,08. 1E7 
,23,10,FA,01,FO,2C2 
09,EB,C1,10,ED,4A5 
,C9,3A,BB, 13,47, 3B9 
50, 06, 08, 21, 9E, 211 



3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3170 
32B0 
3290 
3300 
3310 
3320 
3330 
3.340 
3350 
3360 
3370 
3380 
3390 
3400 



DATA 4F, 
DATA 16, 
DATA 06, 
DATA 01, 
DATA 10 
DATA 13, 
DATA 07, 
DATA 4F, 
DATA 4E, 
DATA 08, 
DATA A7, 
DATA AD, 
DATA FA, 
DATA 13, 
DATA 07, 
DATA 4F, 
DATA 4E, 
DATA 08, 
DATA E7 
DATA ED, 
DATA FA, 
DATA 77, 
DATA F5, 
DATA 00, 



1A,77,13, 
50,21, 1E, 
08,1A,77, 
F0,FF,09, 
ED.C1.10 
47,C5,21, 
,08,CD, 
11,17,4F, 
11,1D,4F, 
CD,12,4E, 
4F, 06, 
4F, 11, DO, 
4D,C1,10, 
47,C5,21, 
06, 08, CD, 
11,57,4F, 
11,5D,4F, 
CD,12,4E, 
4F, 06, 08 
4F, 11, DO, 
4D,C1,10 
13,01, OB 
C9,C5,7E, 
09,C1,10, 



.10,FA, 
50,06,10, 
13,23,10 
EB,09,EB, 
D3,C9,3A, 
16,4F, 11, 
06,4E,21, 
06,08,CD, 
21,A6,4F, 
1,A6,4F, 
CD,20,4E, 
07,Ci6,08, 
C5,C9,3A, 
56,4F. 11, 
06,4E,21, 
06,08, CD, 
21,E6,4F, 
21,E6,4F, 
CD,20,4E, 
07,06,08, 
C5,C9,C5, 
00,09,C1, 
12,13,01, 
F5,C9,C5, 



11,231 
C5, 1D0 
FA, IDF 
Cl, 499 
B8.45C 
DO, 286 
16,160 
20, ICI 
06, 1E7 
11,25C 
21,260 
CD,2BF 
B8,498 
D0,2C6 
56,1AD 
20,201 
06,267 
11,29C 
21,2A0 
CD,2FF 
1A,485 
10.16D 
08,32F 
7E.3DB 



3410 DATA 12,01,08,00,09,E6,09,EB.203 • 
3420 DATA C1,10,F3,C9,C5,D5,E5,06,512 
3430 DATA 08,1A,77,23,13,10,FA,E1,2BA 
3440 DATA Dl, 01, 08,00,09, EB,09,EB,2C2 
3450 DATA C1,10,E9,C9,3A,B8,13,47,3CF 
3460 DATA C5,21,AD,4F,11,DO,07,06,2DO 
3470 DATA 08,CD,06,4E,11,AD,4F,21,257 
3480 DATA AC,4F,06,08,CD,BB.4E, 11.2ED 
3490 DATA 1D,4F,21,A6,4F,06,0B,CD,25D 
35O0 DATA D0.4E, 11,1D,4F,21,1C,4F,227 
3510 DATA 06,08,CD,B8,4E,11,D0,07,2C9 
3520 DATA 21, 16,4F, 06,0B,CD,FA,4D,2AB 
3530 DATA Cl, 10,C5,C9,3A, 68,13,47, 3AB 
3540 DATA C5,21,ED,4F,ll,D0,07,O6,310 
3550 DATA 08,CD,06,4E, 11,ED,4F,21,297 
3560 DATA EC,4F,06,08,CD,B8,4E,11,32D 
3570 DATA 5D,4F, 21, E6,4F, 06,08, CD,2CD 
3580 DATA D0,4E,11,5D,4F,21,5C,4F,2A7 
3590 DATA 06,08.CD,BB,4E, 11, 00,07, 2C9 
3600 DATA 21,56,4F,06,08,CD,Ffi,4D,2ES 
3610 DATA C1,10,C5,C9,C5,E5,D5,06,4E4 
3620 DATA 07,7E,12,2B,1B,10,FA,D1,2B8 
3630 DATA El, 01, 08,00,09, EB,09,EB,2D2 
3640 DATA C1,10,E9,C9,C5,1A,77,01,3DA 
3650 DATA 08,00,09,EB,09,EE,C1,10,2C1 
3660 DATA F3,C9, 06,40,21, 16, 4F, 3E.2C6 
3670 DATA 11,CD,03,4F,06,40,21,56,1ED 
3680 DATA 4F,3E,00,CD,03,4F,21,A6,273 
3690 DATA 4F,3E,22,06,40,CD,03,4F,214 
3700 DATA 21, E6, 4F, 3E, 33, 06,40, 77, 284 
3710 DATA 23,10,FC,C9,01,05,00,00,1FE 
3720 DATA 00,00,44,44,44,44,44,44,198 
3730 DATA 44. 44,11, 11, 11, 11, 11, 11, EE 
3740 DATA 11,11,11,11,11,11,11,11,88 
3750 DATA 11,11,11,11,11,11,11,11,88 
3760 DATA 11,11,11,11,11,11,11,11,88 
3770 DATA 11,11,11,11,11,11,11,11,88 
3780 DATA 11,11,11,11,11,11,11,11,88 
3790 DATA 11,11,11,11,11,11,11,11,38 
3800 DATA 11,11,11,11,11,11,11,11,88 
3810 DATA 11,11,00,00,00,00,00,00,22 
3820 DATA 00,00,00,00,00,00,00,00,0 
3830 DATA 00,00,00,00,00,00,00,00,0 
3840 DATA 00,00,00,00,00,00,00,00,0 
3850 DATA 00,00,00,00,00,00,00,00,0 
3860 DATA 00,00,00,00,00,00,00,00,0 
3870 DATA 00,00,00,00,00,00,00,00,0 
3B80 DATA 00,00,00,00,00,00,00,00,0 
3890 DATA 00,00,44,44,44,44,44,44,198 
3900 DATA 44,44,44,44,44,44,44,44,220 
3910 DATA 44,44,22,22,22,22,22,22,154 
3920 DATA 22,22,22,22,22,22,22,22,110 
3930 DATA 22,22,22,22,22,22,22,22,110 
3940 DATA 22,22,22,22,22,22,22,22,110 
3950 DATA 22,22,22,22,22,22,22,22,110 
3960 DATA 22,22,22,22,22,22,22,22,110 
3970 DATA 22,22,22,22,22,22,22,22,110 



39B0 

3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
41B0 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4350 
4360 
4370 
4360 
4390 
4400 



DATA 22,22,22,22,22,22,22,22,110 
DATA 22,22,33,33,33,33,33,33,176 
DATA 13,33,33,33,33,33,33,33,198 
DATA 33,33,33,33,33,33,33,33,198 
DATA 33,33,33,33,33,33,33,33,198 
DATA 33,33,33,33,33,33,33,33,198 
DATA 33,33,33,33,33,33,33,33,198 
DATA 33,33,33,33,33,33,33,33,198 
DATA 33, 33, 33, 33, 33, 33, 33, 33, 198 
DATA 33,33,44,44,44,44,44,44, 1FE 
DATA 44,44, 11, 11, 11, 11, 11, 11, EE 
DATA 11,11,11,11,11,11,11,11,38 
DATA 11,11,11,11,11,11,11,11.88 
DATA 11,11,11,11,11,11,11.11,88 
DATA 11, 11, 11, 11, 11, 11, 11, 11, 88 
DATA 11. 11, 11, 11, 11, 11, 11, 11, 38 
DATA 11,11,11,11,11.11.11,11,88 
DATA 11,11,11,11,11,11,11,11,88 
DATA 11,11,00,00,00,00,00,00,22 
DATA 00,00.00,00,00,00,00,00,0 
DATA 00,00,00.00,00,00,00,00.0 
DATA 00, 00, 00, 00, 00, 00, 00,00. 
DATA 00,00,00,00,00,00,00,00,0 
DATA 00,00,00,00,00,00,00,00,0 
DATA 00,00,00,00,00,00,00,00,0 
DATA 00,00,00, 00,00, 00,00, 00,0 
DATA 00,00, 22, 22. 22,22, 22,22,CC 
DATA 22,22,22,22,22,22,22,22,110 
DATA 22,22,22,22,22,22,22,22,110 
DATA 22,22,22,22,22,22,22,22,110 
DATA 22,22,22,22,22,22,22,22,110 
DATA 22,22,22,22,22,22,22,22,110 
DATA 22,22,22,22,22,22,22,22,110 
DATA 22,22,22,22,22,22,22,22,110 
DATA 22,22,33,33,33,33,33,33,i76 
DATA 33,33,33,33,33,33,33,33,198 
DATA 33,33,33, 33,33,33,33,33. 19B 
DATA 33,33.33,33.33,33,33,33,198 
DATA 33,33,33,33,33,33,33,33,198 
DATA 33,33,33,33,33,33.33,33,198 
DATA 33,33,33,33,33,33,33,33,198 
DATA 33, 33, 00, 00, 00, 00, 00, 00, ha» 



PUZZLE 2 



10 MEHORY 17500-1 

20 LOAD"pu!zlel" 

30 BORDER 10:1»; 0,10:INK 1.0 

40 FOR 1=0 TO 255 

50 a=RND(li *8.2345676 

55 b=INT!a> 

56 IF b>7 THEN b=7 

57 IF b<0 THEN b=0 
60 PDKE 100O+i,b 
70 NEXT 

80 CALL 17500» 



u 




u 



Thierry MATHIAS 



Dons ce jeu, vous êtes une 
araignée et vous avez un 
gros défaut : celui d'haïr tes 
mille-pattes. Pour pouvoir 
assouvir votre haine, la 
nature vous a fait un don : 
vous pouvez tirer 
sur vos 
proies. 




ICC PC 464 
X CPC 664 
^ CPC 6128 



Vous êtes en bas de l'écran et le 
mille-pattes parcourt son territoire en 
partant du haut. Chaque fois que 
vous l'atteignez, il se sépare en deux 
parties et le morceau touché se 
transforme en champignon (!). Mais 
attention : celui-ci peut être vénéneux. 
Dans ce cas, un simple contact d'un 
mille-patte et celui-ci dégringole. 
Gare à vous si vous êtes sur le 
chemin ! Si par contre vous parvenez 
à le toucher deux fois, vous aurez 
droit à un bonus de ]000 points. A 
chaque fin de tableau, vous marquez 
10 points par champignon inoffensif 
restant à l'écran. 

Vous disposez initialement de 4 vies 
mais vous avez la possibilité d'en 



LANCE! 



10 MODE 1: BORDER OilNK 0,0sIIK 1,0: >TH 

II* 2.26:11*; 3,1 

20 LOCATE 25,3:PEN 2:PRIMT "T.HATHI >6C 

AS" 

30 LOCfiTE 28,5iPEN Î:PRINT "et" >ZK 

40 L0CATE 23.7:PEN 2:PRINT "CPC" >2U 

50 LOCATE 26,9:PEN 3:PRINT "présent >MZ 

ent" 

60 LOCATE 1.25:PEN liPRINT "CENTIPE >HK 

DE"! 

70 FOR ylM T0 14 STEP 2:xï=32:c=l >DJ 

2.57:F0R »1WI T0 142 STEP 2 

30 xï=x7.+B t r~^S^\ >LG 

90 C =c-0.1408 fT^yyV >EC 

100 y7.=150+c*!yU-B) ' *"•" *- >MF 

110 IF TEST (xlï,yl7.)=0 THEN S0T0 1 >C£ 

40 

120 cl=c >VB 

130 FOR titFfl-cï T0 yï*cï STEP 2:M0 >BF, 



gagner une nouvelle. Pour cela, un 
mille-patte constitué d'un seul 
morceau parcourt le haut de l'écran. 
Si vous arrivez à le toucher avant 
qu'il ne disparaisse, c'est gagné ; 
sinon... 

Vous pouvez jouer en utilisant soit le 
joystick, soit le clavier redéfini à votre 
guise. Vous avez le choix entre 10 
niveaux de rapidité (de à 9, en 
vitesse décroissante) que vous 
sélectionnez en appuyant sur la 
touche correspondante. A chaque fin 
de tableau, le rythme s'accélère. 
Pour créer le fichier binaire, tapez le 
programme "CENT1.DAT" et 
exécutez le. Faites ensuite de même 
avec le programme "CENT2.DAT". 
Vous obtiendrez ainsi deux fichiers 
binaires. Tapez ensuite : 
MEMORY &75FF 
LOAD "CENT1.BIN" 
LOAD "CENT2.BIN" 
SAVE "CENTIPED.BIN",B,&7600, 
&214F 

Il ne vous reste alors qu'à taper et 
sauvegarder le programme 
"LANCEUR" que vous mettrez, si 
vous possédez un lecteur de cassette, 
juste avant le programme 
"CENTIPED.BIN. Pour commencer 
le jeu tapez RUN "LANCEUR". 

'VE «M.hïiDRrW 8,0:NEXT h* 

140 NEXT xl%,ylX >BE 

150 LOCATE 1.25:PRINT " "j >ZQ 

160 1NK 1,20 >UE 

170 LOCATE 35.25:PEN îlPMNT CHR*(4 >PD 
A4);" 19BB"; 
180 NEHORV 475FF:L0AD"!centiped.bin >KP 



190 CALL 47600 



JD 



10 a=47600:f=32815:MEHDRY a-l:l=100 

20 WHILE »<f 

30 FOR â=a T0 a+15:READ c*:k=VAL("4"+c 

«>:5=5*k+65536»(stk>32767):P0KE a,k:NEX 

T 

40 READ dl:t=VAL("4"+d«):IF sOt THEN 

PRINT CHR»(7>; "Erreur ligne ";1:END ELS 

E 1=1*5 

,50 l€ND 



TM SAVE "centl.bin",b.47600.4A2F 

70 END 

100 DATA ED, 73, 3B, 79. CD, 25, 77, CD, D0. 82, 

CD.D1,83,CD, 19,76,0916 

105 DATA CD,57,77,CD,87,77,C3,F0,77.3E, 

00,CD,OE,BC,21,05,10A1 

110 DATA 05,CD,3E,BC,21,77,37,CD,63,B7. 

3E,05,06,18,0E,00,15B2 

115 DATA CD,32,BC,01,00,00,CD,38,BC,3E, 

00,CD,96,BB,06,04,1B95 

120 DATA 21,BB,C1,C5.E5,22,D7,78,CD,3B, 

79,E1,11,F0,00,19,2399 

125 DATA Cl , 1 0, F0, 3E, 08, CD, E4, BB, 1 I , 28, 

00,21, 4C,02,CD,CF,2A50 

130 DATA BB.ll, 68,00,21, 6E, 01, CD,D2,BB, 

CD, DB,BB,11, 00,00, 30E2 

135 DATA 21, 7C,02,CD,CF, 66,11,58,00,21, 

66 1 00,CD,D2,B6,CD,37EF 

140 DATA DB,B6,2I,F0,C5.CD.03,77,21,3F, 

C6,CD,03,77,21,54,3FB4 

145 DATA C0.22,D7,78,21,54,EO,3E,FF,06, 

04,C5,E5,06.47,77,46BF 

150 DATA 23,10,FC,E1,CD,70,79,C1,10,F1, 

06, 84,77, CD, 70,79, 4EFE 

155 DATA 10,FA,21,EA,CO,22,D7,7B,06,B4, 

77,CD,70,79,10,FA,5705 

160 DATA 3E,01,CD,90,BB,21,01,04,CD,75, 

BB,21,BC,78,06,08,5CE2 

165 DATA CD,19,77,E5,3E.0D,CD.90,BB,E1, 

06,06, CD, 19, 77, 3E, 640F 

170 DATA 0C.CD. 90, BB,06, 09,21, 06,01, 11, 

CA,78,C5,E5,D5,CD,6B09 

175 DATA 75,BB,1A,CD.5D,BB,D1,13,E1,2C, 

Cl,10,EF,3E,OD,CD,7301 

180 DATA 90,BB,C9,CD,0E,77,11,60,FF,19, 

CD,0E,77,C9,11,00,7A6C 

135 DATA 0S,O6,04,36,C3,l9,i0,FB,LV,C5, 

E5,7E,CD,5D,DB,E1,8252 

190 DATA 23,C1.10,F5,C9,06, 09,21, 19.B0, 

36,00,23, 10,FB,2A,875B 

195 DATA 41,B5,11,4C,63,37.3F,20,08,21, 

41, B5, 22,4F, 86,18,8025 

200 DATA 06,21, SB, B6,22,4F,86,5E, 23,56, 

21,15,Û0,19,36,FB,90DB 

205 DATA 11.2F,00,19,36.07,C9,3E,21,32, 

D3,7B,3E,19,32,D4,9573 

210 DATA 78,21, 02, F7,22,D5, 78,21, 02,C7, 

22, D7, 78,21, 0E,S0,9B7E 

215 DATA 36,00,06,09,21,10,80,36,00,23, 

10,FB,3E,04,32,3A,9ES6 

220 DATA 79, 3E, 02,32, D6,8O,C9.11,E9,C0, 

1A,FE,03,28, 09,11, A4A7 

225 DATA E9,E0,1A,FE,03,C2,8C,81,CD,FE. 

7C,DD,21,24,7C,DD,AE1C 

230 DATA 36,00,01, DD, 36,01, 01, 21, A3, 7C, 
DD,75,02,DD,74,03,B350 
■^235 DATA DD,36,04,00,DD, 36,05,01, DD,36, 



15 



06,00,D0,21,ft3,7C,BBB6 *T*380 DATA 7B 

240 DATA DD,73,!Xi,DD,72,01,3h,OD,80,FE. BF,BC,38,0E 

00,28,06, 21, 22,80. BEOC 3B5 DATA 78 

245 DATA CD,E1,7C,3E,00, 32.0D. BO, 3E, 1D, 38,19,01, FI 

32,A3.7D,2A,D7,78,C45? 390 DATA 24 

250 DATA 22,09,7B,2A,D5.7B,CD,3B,79,2A, 05,FE,00,CA 

09, 78,22,07, 7B,C9,CC79 395 DATA 06 

255 DATA CD,9F,79,11,E9,C0,CD,54,7D,06, 7D,EB,D2,CC 

lF,C5,Oû,FF,10,FE,D4B3 400 DATA CD 

260 DATA C1.1Û,F8,3E,00,32,37,79,3E,48. 0C,7B,ED,53 

CD,1E,BB,C4.4E,78,DB52 405 DATA 1A 

265 DATA 3E,4?,CD, 1E.BB,C4,67,7S,3E,4A, E5,DD,E5,D5 

CD. 1E,BB,C4,80,78.E30C 410 DATA 00 

270 DATA 3E,4B,CD,1E,BB,C4,9E,78,CD,A4, E1,E5,DD,56 

7D,3E,42,CC,1E,BB,EB29 415 DATA 5E 

275 DATA C2,0A,76,3A,37.79,FE.OC.28,B6, 00,DD,19,E1 

2A,D7,78,22,D9,7B,F21D 420 DATA 56 

280 DATA 2A,D5,78,CD,3B,79,2A,D9,78,22, 83,7A,11,F4 

D7,78,18,A2,3A,D4,F9C9 425 DATA 19 

285 DATA 7B,3D,FE,00,CB,32,D4.78,2A,05, El, Dl, Cl, 05 

78.CD, 83,79, 22, D5.01F9 430 DATA E5 

290 DATA 78,3E,01,32,37,79,C9,3A,D4,7B, 2B,22,0E,80 

3C,FE,1A,C8,32,D4,0903 435 DATA FE 

295 DATA 78, 2A,D5, 78, CD, 70,79, 22,05,78, 28,47, FE,47 

3E.01, 32,37, 79. C9.1001 440 DATA 3E 

300 DATA 3A,D3,7B,3D,FE,0O,C8.32,D3,78, 32,00,80,21 

2A,D7,7B,2B,22,D7,17A3 445 DATA CD 

305 DATA 78,2A,D5,78,2B,22,D5,7B,3E.01, E1,C1,C3,0C 

32,37,79,C9,3A,D3,1E23 450 DATA 24 

310 DATA 78.3C,FE.46,C8,32,D3,7B,2A.D7, 00, DO, 66,02 

78, 23, 22,07, 78, 2A, 2597 455 DATA 01 

315 DATA D5,73,23,22,D5,78,3E,01, 32,37, 00,DD,19,C1 

79,C9,53,43,4F,52,2B97 460 DATA C3 

320 DATA 45,20,3A,20,30,30,30,30,30.30, 72,2B,C0.12 

43,45,4E, 54,49, 50, 2F39 465 DATA 05 

325 DATA 45,44,45,74,08,DD,75,07,DD,7E, E5,DD,7E,03 

03,DD,77,09,DD,7E,35F2 470 DATA 28 

330 DATA 04,00,00,00,00,00,00.00,00,00, 7D,EB,CD,B2 

88, 00,00, 00,00,00,367E 475 DATA CD 

335 DATA 20, 00,00,00, 50,20,20,70, 00,00, 3D,7D,EB,1B 

00,10,30,00,00, 00,37DE 480 DATA B2 

340 DATA 00,00, 20,00,00, 00,00,30,30,20, 7B,1B,CD,B2 

00,00,50,00,20,50, 393E 485 DATA 13 

345 DATA 00,00,00,10,30,00,00,00,00,20, 13,EB,CD,22 

20,20,00,00, 00,20,39FE 490 DATA CD 

350 DATA 20,20,00,00,00,20,00,20,00,00, B2,7B,EB,CD 

0O,AO,00,A0,00,00,3BBE 495 DATA EB 

355 DATA 00,00,00,00,00,DD,46,00,DD,56, EB,1B,CD,B6 

04,E5,CD,5F,79,06,40A8 500 DATA CD 

360 DATA 0E,21,E1,78,22,35,79,D1,2A,35, 52,7B,11,06 

79,C5,D5,01,06,00,464A 505 DATA 19 

365 DATA ED,B0,22,35,79,E1,CD,70,79,C1, DD,6E,01,E5 

E5,10,EA,E1,C9,11,4FA9 510 DATA 00. 

370 DATA 00,08,3E,BF,37,3F,ED,52,BC,38, 78,FE,00,28 

F9,19,22,D7,78,C9,56A3 515 DATA 2B 

375 DATA D5,ll, 00,08,19,30, 0A,2A,D7,7B, 2B,10,F2,5E 
11, 50,00,19,22, D7,5AD0 U* 520 DATA El 



D1,C9,F5,D5,!1,00,F8,19,3E,'< 

2A,D7,62CE 

11, BO,FF, 19,22,07,78,11,00, 

C9, 21.699E 

7C,DD,21,25,7C,46,C5,DD.7E, 

97,7A,7121 

04,C5,C0,17,7B,E5,EB.CD,22. 

79,E1,7A6E 

52,7B,FE,00,C2,8F,7A,C1,C3, 

3D,80,B2D9 

FE,00,CA,83,7A,FE,OC,20,49, 

E1,3E,BBC6 

32,3F, 80,CD,45,7E,DD,E1, El, 

02,DD,94BE 

01, 37, 3F,ED, 52,28, 16,11,06, 

E5,DD,9AC5 

02,DD,5E,01,37,3F,ED,52,CA, 

FF,DD,A2B6 

18,70, 3A,3F,30,FE, 00,28,69, 

C5,D5,A9F1 

18,60,FE,3C.20,09,2A,OE,BO. 

18,53,AEAF 

FC,28,4F,FE,03,28,4B,FE,OF, 

20,1F,B594 

00,32.3F, 80,CD,02,7F,3E,00, 

22,80,B9D1 

El, 7C,3A,3F,80,FE,00, 28,29, 

7B,21,C150 

7C,DD,21,25,7C,46,C5,DD,46, 

DD,6E,C84D 

CD,E1,7C,23,23,10,F9,11,06, 

10,E7,CEBC 

25,81,E1,ED,5B,3D,80,73,23, 

7D,C1,D62B 

C2,B2.79,C3,X,7B,CD,17,7B, 

FE,00,DE07 

34,13, CD,B6,7B,1B,EB,CD. 22, 

7B, 1B.E5E6 

B2,7B,13.13,CD,B6,7B,EB,CD, 

1B,CD,EE64 

7B,EB,CD,3D,7D,EB,13,CD,B2, 

7B,13,F723 

CD,B6,7B, 18,32, 1B,CD,B2,7B, 

7D,EB,FEE8 

B6,7B,13,CD,B6,7B,1B,1B,CD, 

30,70,0799 

13,13,CD,B6,7B,EB,CD,3D,7D, 

7B, 13, 1031 

B6,7B,1B,1B,CD,B2,7B,E1,CD, 

00,DD,17CE 

C1,05,C2.A7,79,C9,DD,66.02, 

DD,46,1FF1 

05,56, 16,00, 19, 19,CD,E1,7C, 

0E,2B,2497 

5E,23,56, 23, 73,23, 72,2B,2B, 

23, 56.291E 

C9,FD,E1,D1,C1,05,3E,00,B8,. 



120,01, 04, C5 
525 DATA E5 
00,DD,7E,00 
530 DATA 20 
02,00,75,01 
535 DATA C9 
96,04, FE.00 
540 DATA 4F 
DD,E5,D1,21 
545 DATA 19 
DD,35,04, 
550 DATA F9 
DD,19,3E,01 
555 DATA BO 
C3,20,OE,3A, 
560 DATA FE 
82, FE, 47, 20. 
565 DATA D6. 
C3,71,82,EB, 
570 DATA 7F 
80,36,00,18, 
575 DATA OF 
DD, 66, 02, DO. 
580 DATA 5E 
E1,C3,0C,7B 
585 DATA CO 
DO, 70,03, C3 
590 DATA El 
00,00,00,00 
595 DATA 00 
00,00,00,00 
600 DATA 00 
00,00,00,00 
605 DATA 00 
00,00,00,00 
610 DATA 00 
00,00,00,00 
615 DATA 00 
00,00,00,00 
620 DATA 00 
00,00,00,00. 
625 DATA 00 
00,00,00,00 
630 DATA 00 
CO,DO,CO,D1 
635 DATA CO 
C0,D8,C0,D9 
640 DATA CO 
CO,EO,CO,E1 
645 DATA CO 
C0,EB,C0,E9 
650 DATA 90 
FE, 00,28,02 
655 DATA 23 
Cl, 01, El, C9 
660 DATA C5 
10, FB, 36, 06 



D5,FD,31EF 

C9,J6,00,23,36,00,23,DD,35, 

FE,00,37BA 

06,CD,71,7B,3E,OO,C9,DD,74, 

38,01,3085 

3A,24,7C,FE,01,CA,D7,80,DD, 

2B,23,450B 

C5,06,05,81,10,FD,4F,06,00, 

06,00, 4AC4 

ED.BO,C1,41,11,06,00,DD,E5, 

19,10,5171 

DD,E1,21,24,7C,3Ï,11.FA,FF, 

32,3F, 58CE 

C9, 06, 00, 18, 02, 06,01, 1A.FE, 

D6,B0,5DD7 

01,20,5C,E1,E1,E1,E1,C3,A9, 

20, 3A, 6683 

80,FE,01,20,07,E1,E1,E1,E1, 

CD,7A,706B 

2A,0E, 80,23, 22,0E,8O,21,0D, 

31,FE,74A0 

20,1B,DD,36,05,02,DD,46.00, 

6E,01,79BB 

23.56, 23,CD,12,7D,10,F7, El, 

FE, 03, 8122 

E1,E1,73,23,72,2B,CD,FE,7C, 

0C,7B,B9B8 

C3,0B, 76,01, lt,A3,7C, 00,01, 

00,00, BD1E 

00,00,00,00,00,00,00,00,00. 

00,00. 8D1E 

00,00,00,00,00,00,00,00,00, 

00,00,8016 

00, 00, CK3, (», 00, 00, 00. 00, 00, 

00,00,8D1E 

00, 00, l», 00, 00, 00, 00, 00, 00, 

00,00,8D1E 

00,00,00,00,00,00,00,00,00, 

00,00, 8D1E 

00,00,00,00,00,00,00,00,00, 

00,00,BD1E 

00,00,00,00,00,00,00,00,00, 

00, 00, SOIE 

00,00, CC,CO,CD,CO,CE,CO,CF, 

CO, 02,9747 

D3,C0,D4,CO,D5.CO,D6,CO,D7, 

C0,DA,A3FB 

DB,CO,DC,CO,DD,CO,DE,CO,OF, 

C0,E2,B0EF 

E3,C0,E4,C0,E5,CO,E6,C0,E7, 

C0,CD,BEO6 

E5,D5,C5,5E,23,56,EB,2B,7E, 

3E,03,C4E9 

11, 00,08,06,04, 77, 19. 10, FC, 

E5,D5,CBC1 

EB, 11, 00,08, 06, 03, 36, OC, 19, 

C1,D1,D0C7 
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665 DATA El, C9,C5,E5,EB, 11,00,08,06,04,' 

36,FC,19,10,FB,E1,D860 

470 DATA Cl, C9,D5,E5,11, 00, 20.19,30,10, 

E1,U,50,E0,19,E5,DF4E 

675 DATA 1 1,CF,C7,3F,ED,52, 3F, El, 18,01 , 

D1,D1,C9,F5,D5,E5,EBC6 

680 DATA 11,00,E0,19,3E,BF,BC,38,07,E1, 

11,B0,1F,19,1B,01,EDBB 

685 DATA Dl , Dl , FI , CT, 3fi, A3, 7D, FE, 00, CS, 

1A,FE,03,28,0E,11,F599 

690 DATA E9,E0,lA,FE,O3,28,06,3E, 00,32, 

A3,7D,C9,CD,FE,7C,FD4B 

695 DATA EB,DD,21, 25, 7C,3A,24,7C, 47,05, 

28,07, 11, 06,00,DD.021E 

700 DATA 19,10,FC,DD,56,02,DD,5E,01,D5, 

FD,E1,DD,7E,00,B7,0A49 

705 DATA 5F,16,O0,FD,19,FD,74,01,FD,75, 

00, DD, 34,00,21, A3.108D 

710 DATA 7D,35,C9,00,3A,0D,8O,FE,01,2B, 

2A,3E,4C,CD,1E,BB,1650 

715 DATA CS,21,40,BO,CD,AA,BC,21,49,80, 

CD,AA,BC,2A,D7,78,1EC2 

720 DATA 23, 21, 23,22,22, 80,CD,F4,7D,22, 

22,80, CD, 66, 7F, 21, 24C4 

725 DATA 00,80,36,01, C9,21,22,80,CD,E1, 

7C,2A,22,80,06,04,2A14 

730 DATA ED,43,3B,80,CD.F4,7D,ED,4B,3B. 

80,10,F3,22,22,80,31F7 

735 DATA CD,66,7F,C9,CD,3D,7D,7E,FE,03, 

CB,FE,00,C8,FE,3C,3B40 

740 DATA 20,17,22,22,80,21, 22,80, CD,E1, 

7C,2A,0E,B0,2B,22,402D 

745 DATA 0E,80,21,OD,80,36,00,El,C9,FE, 

OF,28,F5,FE,FC,20,478D 

750 DATA OA,CD,2D,7F,38,EC,CD,02,7F,18, 

E7,FE,0C,C2,42,7E,4F0D 

755 DATA 3A,D6,80,FE,01,20,06,E1,E1,E1, 

C3,71,B2,CD,45,7E,57AB 

760 DATA 18,D0,C3,12,7E,CD,2D,7F,D8,CD, 

74,7F,3E,01,B8,20,5FOE 

765 DATA 0F,CD,87,7F,DD,35,O0,DD,7E,O0, 

FE,00,CC,71,7B,C9,66DC 

770 DATA FD,36,00,00,FD,36,01,00,2A,0E, 

B0,23,22,0E,80,DD,6BAB 

775 DATA 7E,00,B8,20,12,DD,35,00,DD,66, 

02,DD,6E,01, 23,23, 70FC 

780 DATA DD,74,02,DD,75,01,C9,3A,24,7C, 

DD,BE,04,28,23,DD,780C 

785 DATA 96, 04, C5, 06, 05, 4F, 81, 10,FD,4F, 

06,00,C5,21,24,7C,7D2E 

790 DATA 11,06,00,3A,24,7C,47,19,10,FD, 

E5,19,D1,EB,C1,ED,83F4 

795 DATA B8,C1,DD,7E,00,F5,90,DD,77,00, 

05,DD,70,06,DD,66,8C3C 

800 DATA 02,DD,6E,01,F1,B7,5F,16,00,19, 

3E,00,90,90,5F, 16,9163 

805 DATA FF,19,DD,74,08,DD,75,07,DD,7E, 



: 03,DD,77,09,DD,7E,9943 " 

B10 DATA 04,3C,DD,77,OA,DD,36,0B,00,3A, 
24,7C,DD,46,04,90,9E90 
815 DATA 28,0B,47,11,06,00,DD,19,DD,34, 
OA,10,F9,21,24,7C,A2FC 
820 DATA 34,C9,DD,35,05,C0,DD,46,00,DD, 
66,02, DD,6E, 01, CD,AA51 
B25 DATA El,7C,23,23,10,F9,2A,ll,80,ll, 
64,00, 19,22,11, 80, AEF9 
830 DATA 30,04,21, 10, 80,34,CD,BE, 7F, CD, 
71,7B,C9,DD,21,25,B5C1 
835 DATA 7C,DD,46,FF,C5,DD,46,00,DD,56, 
02,DD,5E,01,D5,FD,BE8A 
840 DATA El, E5,FD,56, 01, FD.5E, 00,37,3F, 
ED, 52,26,13, El, FD.C6CD 
845 DATA 23,F0,23,10,EE,ll,06,0û,Dû,19, 
C1,10,D7,E1,E1,37,CDBA 
850 DATA C9, El, Dl, 37,3F, C9, 11, 00,08,06, 
02,36, 47,19,36, 8B,D2EC 
B55 DATA 19, 10,F8.C9,FD, 66,01, FD,6E,00, 
11, 00,08, CS, 06,04, D88D 
860 DATA 36,3C,19,10,FB,C1,C9,FD,66,01, 
FD,6E,00, 11,00,08, DE 95 
B65 DATA C5.06, 04,36,0F, 19,10,FB,C1,C9, 
3A,17,80,3C,FE,0A,E46C 
870 DATA 28, 05,32,17,80, 18,4D,3E,00,32, 
17,B0,3A,16,8Ci,3C,E7DA 
875 DATA FE,OA, 28, 05,32, 16,80,18, 3B,3E, 
00,32, 16,80, 3A,15,EB7F 
880 DATA 80,3C,FE,OA,2B, 05,32, 15,80, 18, 
29,3E,00,32,15,80,EF7D 
885 DATA 3A,14,80,3C,FE,0A.2B, 05,32,14, 
80,18,17,3E,00,32,F321 
890 DATA 14,80, 3A,13,80,3C,FE,0A,2B,05, 
32, 13,80,18, 05, 3E,F713 
895 DATA 00,32, 13, 80,21, 01, 0C,CD,75,BB, 
06,06,21, 13, 80,C5,FB8B 
900 DATA E5,7E,C6,30,CD,5D,BB,E1,23,C1, 
10,F3,C9,00, 00, 00,0357 
905 DATA 00,00,00,00,00,00,00,00,00,00, 
90,00,00,00,00,00,0357 
910 DATA 00,00,00,00,00,00,00,00,00,00, 
00,00,00,00,00,00,0357 



CENT 2 - DAT 



10 a=32816:f=38735:HEN0fiy a-1: 1=100 
20 NHILE »<f 

30 FOR a=a TO a+15:READ c«:k=VAL("!("+c 
$):5=5+k+65536«(5+k>32767):P0KE a,k:NEX 
T 

40 READ d*:t=VAL("ir+d»):IF tOs ThCN 
PRINT M» (7) ("Erreur ligne ";1:END EL5 
E 1=1+5 
50 NEND 
J*60 SAVE"cent2.hin",b, 32816,1171F j 



'70 END 
100 DATA 00 
00,00,00,00 
105 DATA 01 
00,00,00,00 
110 DATA 07 
01,01,01,1C 
115 DATA 01 
01,01,00,14 
120 DATA 00 
64,00,01,00 
125 DATA 01 
00,0F, 19,00 
130 DATA 00 
C2.01, 00,0F 
135 DATA 01 
OO,00,F4,01 
140 DATA 19 
00,01,00,00, 
145 DATA 00 
OF, 64, 00,01 
150 DATA 00 
79,2A,0E, 
155 DATA BC 
3E, 01, 21, 63, 
160 DATA 
80,CD,AA,BC, 
165 DATA 01 
5B,11,80,19 
170 DATA BO, 
3D.FE, 00,28, 
175 DATA FA 
3A, 79,30,28, 
180 DATA 3A 
C3,13,76,CD 
185 DATA 3E 
21,56,80,(2 
190 DATA 21 
BC,CB,7F,20 
195 DATA 47 
ll,FO,O0,19 
200 DATA 22 
00,23, 10,FB 
205 DATA 70 
78,C9,CD,EC 
210 DATA 7B 
38,0F,20,18 
215 DATA 80 
06,21,10, 
220 BATA 80 
0A,21,73, 
225 DATA CD 
BC,30,FB,E1 
230 DATA 00 
E6,07,FE,03 
235 DATA 3E 
,0A,76,3A,D6 



,00 


00, 


,00 


00, 


,00 


00, 


,12 


07, 


,00 


01, 


,01 


00, 


,2C 


01, 


,00 


00, 


,0A 


00, 


,00 


F4, 


,00 


OF, 


,01 


00, 


,A9 


01, 


,19 


00, 


,00 


00, 


,00 


OF, 


,06 


01, 


,00 


02, 


,0F 


19, 


,00 


00, 


,00 


00, 


,3E 


00, 


,20 


03, 


,80 


ce. 


,BC 


El. 


.El 


11, 


,00 


37 


,22 


11, 


,30 


04, 


,03 


32, 


,77 


C3, 


,5D 


32, 


1,79 


F5, 


,A7 


BC. 


.,01 


21, 


<,BF 


BC, 


,5A 


80, 


t.F7 


C9, 


',2A 


07, 


1,10 


FD. 


,D7 


78, 


<,E1 


CD. 


),79 


Cl, 


".01 


ED. 


,38 


79, 


),2A 


1A, 


,ED 


58, 


',11 


19, 


),01 


09, 


i,ta 


E5, 


,AA 


BC, 


.11 


09, 


.1' 


Cl. 


S, 28 


F5, 


:,oi 


CD, 


i,8C 


FE> 



00,00,00,00,00,00,00, 

0000 

00,00.00,07.07,00,01, 

0036 

64,01,03,01,64,05.03, 

0133 

02,01,OF,06,OF,FF,08, 

02A5 

01, 00,00, F4, 01, 00,0F, 

050D 

4B,00,01,00,00,F4,01, 

0687 

00,OF,4B,00,01,00,00, 

0877 

C2, 01, 00,0F, 46,00,01, 

0A9A 

00,OO,F4,01,0O,OF,4B, 

0C13 

00,01, 00,00, F4,01,00, 

0DA5 

00, 02,00, 02,ED,7B,38, 

10B8 

BD, 28,31. E5,CD,A7,BC, 

17D2 

E5,E5,CD,9A,7F,21,6A, 

220B 

3F,ED,52,20,EC,E1.ED, 

27D3 

21,10,80,34,3A,FA,77, 

2CAF 

13,7b,ED,7B,38,79,3A, 

3366 

CD,3D,81,F1,CD,60,B1. 

3CB4 

52,80,CD,BC,BC,3E,01, 

43A9 

CD,AA,BC,3E,01,CD,AD, 

4C76 

78, 22, 09,78,21, 8B,C1, 

533D 

06,0E,C5,06,05.E5,36, 

5989 

10,F0,2A,D9,78,22.D7, 

630F 

3A,19,B0,21, 10,80, 96, 

6718 

11, 80,37,3F, ED,52, 30, 

6C3C 

00,ED,BO,CD,A7,BC,Oti, 

7361 

30,F6,21,CD,80,CD,AA, 

7C86 

10,E9,3E,01,CD,AD,BC, 

83D9 

AD,BC,CB,7F,20,F7,C3, 

8C80 
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240 DATA 00 


C8 


El 


CD,3D,81,11, 


07,87,01,06 


00 


21 


9188 


245 DATA D3 


76 


11 


DB,78,ED,B0, 


21, 0E, 80,11 


24 


30 


9750 


250 DATA ED 


BO 


3E 


00,CD,0E,BC, 


3E,01,CD,90 


BB 


21 


9ED0 


255 DATA 01 


01 


CD 


75,BB,21,BC, 


CD,19,77,3E 


08 


CD 


A4BB 


260 DATA E4 


BB 


11 


00,00,21, 7C, 


BB, 11,40,01 


21 


4E 


AA1F 


265 DATA 01 


CD 


D2 


BB,CD,DB,BB, 


CD, 66, 82, 21 


8F 


Cl 


B325 


270 DATA CD 


66 


82 


CD,57,77,3E, 


80, CD, 87, 77 


3E 


00 


BA45 


275 DATA 32 


A3 


7D 


C3,F0,77,11, 


08,36, C3,19 


10 


F6 


C005 


2B0 DATA C9 


JE 


00 


32,06,80,11, 


E2,86,O6,03 


C5 


7B 


C660 


285 DATA 3C 


CD 


60 


B1,C1,10,F7, 


3A,79,01,06 


00 


21 


CB5E 


290 DATA D8 


78 


11 


D3,78,ED,B0. 


21,24,80,11 


OE 


BO 


D126 


295 DATA ED 


BO 


ES 


7B,38,79,C3, 


00,32,D6,B0 


01 


17 


D806 


300 DATA 00 


21 


24 


80,11, OE, 80, 


8C,81,2A,20 


20 


20 


DD61 


305 DATA 56 


69 


65 


20,65, 6E, 20, 


55,53,20,20 


20 


2A 


E1A9 


310 DATA 3E 


00 


CD 


0E,BC,CD,6C, 


CD,96,BB,3E 


01 


CD 


E8DF 


315 DATA 90 


BB 


3E 


01,01,00,00, 


3E, 05,01, 00 


00 


CD 


ED36 


320 DATA 32 


BC 


3E 


FO, 21, 52, 83, 


21, 01, 01, CD 


75 


BB 


F498 


325 DATA 21 


5C 


B3 


7E,FE,00,28, 


50,BB,E1,23 


18 


F3 


FC1D 


330 DATA 11 


37 


97 


21,00,00,22, 


00, C5, 21, 00 


00 


D5 


FFDD 


335 DATA 3E 


00 


B8 


28,06,11,00, 


FD,11,00,C0 


19 


ED 


0417 


340 DATA 5B 


5A 


B3 


19,D1,7E,12, 


3E, 08, 90,20 


DC 


D5 


0A4B 


345 DATA 2A 


5A 


83 


23,22,5A,83, 


37, 3F, ED, 52 


Dl 


20 


0FF9 


350 DATA C8 


a 


00 


00,00,76,08, 


00,00,43,45 


4E 


54 


1402 


355 DATA 49 


50 


45 


44,45,20,2E, 


2E,2E,20,A4 


20 


54 


17D5 


360 DATA 68 


69 


65 


72,72,79,20, 


48,49,41,53 


20 


31 


1CE0 


365 DATA 39 


38 


38 


20,2E,2E,2E, 


2E,2E,2E,2E 


2E 


2E 


1FD1 


370 DATA 2E 


2E 


2E 


2E,2E,2E,20, 


Éf, 79,73,74 


69 


63 


246E 


375 DATA 6B 


20 


20 


20,43, 3A, 43, 


69,65,72,20 


20 


20 


26 DC 


380 DATA 28 


30 


FO 


39,29,3A,4E, 



,00,40,CD, m>l,75,20,2E,2E,2E,2DD2 « 

385 DATA 2E,2E,2E,2E,2E,2E,2E,2E,2E,2E, 
,01,17,00, 2E,2E,2E,2E,2E,20,30A4 

390 DATA 00,3E,00,CD,OE,BC,21,30,30,CD, 
,CD,53,76, 3E,BC,CD,03,BB,06,3652 

395 DATA 02,48,CD,38,BC,21,87,87,CD,63, 
,82,06,14, 87,3E,09,06,18,0E,3BB6 

400 DATA 00,CD,32,BC,3E,OA,06,00,OE,18, 
,02,CD,CF, CD,32,BC,11,C3,87,40FB 

405 DATA CD,E2,86,3E,05,CD,96,BB,3E,09, 
,21,40,C1, CD,90,BB,21,02,09,481C 

410 DATA CD,75,BB,06,06,0E,30,21, 13,80, 
,01,32,04, 11,9C,87,7E,81,12,405C 

415 DATA 23,13,10,F9,21,97,B7,06,0B,CD, 
,00,08,06, 57,87,21, 04, 09, CD,5291 

420 DATA 75,BB,21,AD,87,O6,0B,CD,57,87, 
,00,40,CD, 3E,19,32,FA,77,3E,590A 

425 DATA 0A,CD,90,BB,21,03,09,CD,75,BB, 
,3E,01,32, 06,06,0E,30,21,1C,5DDD 

430 DATA 80,11, A7,B7,7E,81, 12, 23,13,10, 
,01,17,00, F9,21,A2,B7,06,0B,6347 

435 DATA CD,57,87,3E,06,C0,96,BB,3E,07, 
, 13,76, 3E, CD,90,BB,21,19,06,69F1 

440 DATA CD,75,BB,21,B8,87,04,0B,CD,57, 
■■: B0,C3, 87,11.FB,C4,CD,FE,72A5 

445 DATA 7C,DD,21, 24, 7C,DD, 34,00,01, DD, 
, 42,4F, 4E, 34,01, 01, 21, A3, 7C, 7828 

450 DATA DD, 75,02, DD,74,03,DD,36,04, 00, 
,BB,3E,05, DD,34,05,01,DD,36,7E13 

455 DATA 06,00,DD,21,A3,7C,DD,73,00,DD, 
,CD,32,BC, 72,01, 3E,1D,32,A3, 8406 

440 DATA 7D,DD,21,37,97,DD,E5,CD,9F,79, 
,CD,AB,BB, U,FB,C4,CD,54,7D,BD64 

465 DATA DD,E1, 21, 9B,C6,U, 00,08, 06,3F, 
,08,E5,CD, CD,19,BD,C5,E5,06,9452 

470 DATA 08,23,7E,2B,77,19,10,F9,E1,23, 
,5A,83,06, C1,10,F0,06,0B,DD,9A6F 

475 DATA 7E,00,77,DD,23,19,10,F7,DD,E5, 
,08,19,10, D1,21,B7,A5,37,3F,A20A 

480 DATA ED,52,20,04,DD,21, 37,97,06,06, 
,13,C1,04, C5,06,FF,10,FE,C1,A8DE 

485 DATA 10,F8,CD,09,BB,F5,06,30, 90,38, 
,11,00,01, 27,06,0A,90,30,22,AE83 

490 DATA 80,F5,06,30,80,F5,3E,05,CD,96, 
,00,00,00, BB,3E,09,CD,90,BB,B663 

495 DATA 21,04, 13,CD,75,BB,F1,CD,50,BB, 
,2E,2E,2E, Fl,87,O6,0F,B0,32,BDAD 

500 DATA FA,77,F1,FE,6A,20,16,3E, 48,32, 
,40,41,54, 09,78,3C,32,U,78,C3DD 

505 DATA 3C,32,19,7B,3C,32,21,78,3C,32, 
,2E,2E,2E, AC,7D,C9,FE,63,C2,CA66 

510 DATA DF, 86,06,05,21, DA,86,36,FF, 23, 
,4A,3A,4A, 10,FB,3E,00,CD,0E,D0D3 

515 DATA BC,CD,03,BB,21,77,B7,C0,63,87, 
,6C,61,76, 01,00,00,CD,38,BC,D7B2 

520 DATA 3E,0E,01,12,00,CD,32,BC,21,10, 
,69,76,65,^ 10, CD,3E,6C,21,D4,DCC9 .. 



r 525 DATA C4,CD 
CD,19,86,3E,02 
530 DATA 21,92 
AA, 86, CD. 19, 86 
535 DATA 02, DD, 
DD,21,7A,86,CD 
540 DATA 86, CD, 
02,DD,21,7A,86 
545 DATA 19,86, 
86,CD,4B,86,38 
550 DATA 32,11 
19,86, 3E,0E,DD 
555 DATA AA,86 
32,19,78,3E,02 
560 DATA 21, AA, 
C2,86, CD, 19,86 
565 DATA 4B,B6, 
21,C2,86,CD,19 
570 DATA CD,4B, 
DE,BB,DD,5E,00 
575 DATA 54,01 
BB,1 1,04, 00,00 
580 DATA 06,05 
6£,02,DD,66,03 
585 DATA F6, 
C9,CD,06,BB,2A, 
590 DATA B5,0E 
F8, 79,06,05,21 
595 DATA B6,F5, 
03,23, 10, F3,3E, 
600 DATA CD,5A 
38,01, AA, 00,38 
605 DATA DC,00 
2C,01,DC, 00,38, 
610 DATA DC,00 
44,01,46,00,38, 
615 DATA 38,00 
1C,01,90,00,E4 
620 DATA 90,00, 
E4,00,B8,00,E4 
625 DATA 90,00, 
BC,01,98,00,9C 
630 DATA 90,00, 
FF,FF,FF,FF,FF 
635 DATA B5.84 
C8,1A,B9,28,05 
640 DATA 23,13, 
79,18,F2,47,13 
645 DATA 13,77, 
12,13, 21, 00,CO 
650 DATA BC,28 
BE,20,2B,AF,BC 
655 DATA 27, El 
7E,23,BE,20,0F 
660 DATA AF,BC. 
23,04, 18,EB,E1 
,665 DATA 12,13, 



3B 


79,3E, 


CD 


E305 


86 


CD, 19, 


3E 


EA92 


21 


C2.86, 


19 


F176 


4F 


86,38, 


CD 


F88B 


,3E 


OE,DD, 


FB 


FFC9 


78 


3E,02, 


,21 


0590 


CD 


19,86, 


DD 


«DD 


B6 


CD, 19, 


CD 


1465 


38 


FB.32, 


,86 


1B26 


86 


38,FB, 


DD 


2499 


DD 


6E,02, 


19 


2B00 


,C5 


DD,5E, 


,CD 


319F 


,11 


04,00, 


>41 


38D6 


,00 


46,B8, 


,DA 


3081 


,3E 


FF,BE, 


,07 


4472 


,BB 


37,C9, 


,01 


4B17 


,44 


01, DC, 


.01 


4F79 


.38 


01,78, 


,01 


5249 


,2C 


01,46, 


,00 


5504 


.E4 


00,98, 


,00 


5AC4 


,54 


01,90, 


,01 


5F18 


.8C 


01,88, 


,C3 


679B 


,1A 


4F, 13, 


.77 


6DD8 


,18 


F*, 13, 


,1A 


725F 


,23 


10,FC, 


,AF 


77EC 


,43 


E5,7E, 


.28 


7E65 


,79 


12,13, 


,23 


82F0 


.28 


0A,3E, 


,78 


8A13 


,7E 


12,13, 



02,DD,21,7A,86, 
84,3E,02,DD,21, 
CD,19,84,3E,0E, 
FB,32,09,78,3E, 
21, 92, 84, CD, 19, 
DD,21,92,84,CD, 
CD,4B,86,3B,FB, 
84,3E,0E,DD,21, 
21,78,3E,02,DD, 
32,AC,7D,C9,CD, 
00, 66, 03, CD, EA, 
00,00,56,01,00, 
DD,19,C1,10,E8, 
2B,04,OC,23,1B, 
28,0E,F1,BE,28, 
F1,77,37,3F,C9, 
00,38,01, EA,00, 
00,38,01,46,00, 
00,38,01,46,00, 
00, M, 00, 90, 00, 
00,8C,01, 90,00, 
00,8C,01, 90,00, 
21,0O,C0,AF,BC, 
1A,FE, 00,20,03, 
18,E1,0E,9F,79, 
23, BE, 20, 2F, 23, 
06,03,23, 23,E5, 
FF, BB, 28, 05, El, 
23,18,C7,E1,7E, 



1E 



12,13, 7E,23,69,20,8EB8 



670 DATA 6E,AF, 12,13,18, E9,C9,C5,E5,7E, 

CD,5D,BB,E1,23.C1,97D9 

675 DATA 10,F5,C9, 3E, 00,06, !0,C5,F5,E5. 

46,48, CD, 32,BC,E1,9FC4 

680 DATA 23,F1,3C, Cl, 10, FI, 09,00,14, 12, 

07,1A,18,02,16,00,A416 

685 DATA 00,08,10,11, OB,00,06,00,18, 12, 

06,03,00,02, 11, 02, A498 

690 DATA 18,00,00,00,00,0(1,00,53,43,30, 

20,3A,30,30,30,30,A690 

695 DATA 30,30,52,45,43,20,3A,30,30,30, 

30,30,30,4E,49,56,AA31 

700 DATA 20,3A,20,20,20,20,20,35,A4,20, 

54,2E,4D,41,54,48,ADD0 

705 DATA 49,41, 53,7B,3C,3C,7B,03,03,3C, 

7B,07,03,7B,06,3C,B19F 

710 DATA 7B,04,03,7B,39,3C,03,03,3C,3C, 

7B,03,O3,7B,0F,3C,B4D6 

715 DATA 03,03,7B,03,3C,68,F0,F0,D0,7B, 

2E,F0,DO,F0,E0,7B,BD62 

720 DATA 03,03,78,07, 3C,03,03,7B, 03, 3C, 

7B,O4,03,3C,03,3C,BFE3 

725 DATA 3C,03,7B,03,3C,68,F0,F0,D0,7B, 

2E,F0,D0,F0,E0,7B,CBA8 

730 DATA 06,3C,7B, 05,03, 3C, 78,05,03, 78, 

03,3C,03,3C,3C,03,CB64 

735 DATA 7B,03,3C,68,F0,F0,D0,7B,2E,F0, 

DO,F0,E0,7B,03,O3,D3F0 

740 DATA 3C,7B,07,03,3C,7B,03,03,3C,03, 

3C,03,7B,03,3C,03,D6A9 

745 DATA 7B,04,3C,68,F0,F0,D0,7B,2E,F0, 

DO,F0,E0,7B,03,03,DF36 

750 DATA 7B,03,3C,7B,03,03,3C,7B,05,03, 

3C,03,3C,7B,03,03,E22C 

755 DATA 3C,03,7B,3D,3C,7B,03,03,3C,7B, 

03,03,3C,7B,05,03,E55C 

760 DATA 3C,7B,03,03,3C,03,7B,39,3C,03, 

3C,7B,09,03,3C,7B,E8C5 

765 DATA 03,03,3C, 78,03,03, 7B,03,3C,03, 

03,7B,3B,3C,03,7B,EBB5 

770 DATA 16,3C,7B,35,03,7B,04,3C,03,7B, 

4A,3C,03,7B,04,3C,EF37 

775 DATA 03,7B,4A,3C,03.7E,04,3C,03,7B, 

09,3C,6C,CC,78,03,F372 

780 DATA 3C,7B,06,CC,3C,6C,CC,9C,3C,3C, 

CC,CC,9C,6C,7B,05,FAA3 

785 DATA CC,3C,7B,05,CC,9C,6C,7B,04,CC, 

3C,3C,6C,7B,06,CC,017B 

790 DATA 3C,7B,04,CC,9C,3C,6C,7B,06,CC, 

78,04, 3C,03,7B,04,06DO 

795 DATA 3C,03,7B,07,3C,CC,7B,04,3C,6C, 

3C,6C,CC,3C,CC,7B,0CB7 

800 DATA 04,3C,CC,9C,CC,3C,6C,CC,7B,03, 

3C,6C,CC,7B,05,3C,134D 

805 DATA CC,9C,7B,03,3C,6C,CC,3C,3C,CC, 

9C,3C,6C,CC,3C,CC,1B03 . 



"Y'BIO DATA 7B,04,3C,CC,9C,3C,3C,CC,9C,6C,' : T 



CC,3C,CC,7B,06,3C,2203 
815 DATA 03,7B,04,3C,03,7B,07,3C,6C,CC, 
3C,3C,6C,9C,3C,6C,26E2 
820 DATA CC,7B,03,3C,CC,3C,3C,CC,9C,3C, 
3C,CC,CC,7B,03,3C,2DDE 
825 DATA 6C,CC,7B,05,3C,CC,9C,7B,03,3C, 
6C.CC,7B,05,3C,ôC,3454 
830 DATA CC,7B,03,3C,CC,3C,3C,CC,9C,3C, 
CC,9C,3C,6C,CC,7B,3C19 
835 DATA Û3,3C,CC,7B,O4,3C,03,7B,O4,3C, 
03,7B,4A,3C,03,7B,401F 
840 DATA O4,3C,7B,10,O3,7B,2F,3C,7B,OD, 
03.7B, 13, 3C, 75,31, 43D4 
B45 DATA 03,7B,FF,3C,3C,3C,D0,7B,0B,F0. 
C0,94,7B,3B,3C,68,4AF3 
850 DATA C0,7B,O8,FO,E0,3C,3C,68,7B,O4, 
F0,DO,7B,42,FO,E0,53B2 
855 DATA ?E,04,FO,94,7B,07.3C,DO,7B,42, 
FO,E0,7B,A6,3C,00,5B2D 
860 DATA C0,CÛ,7B,OA,00,CO,7B,22,00,3C, 
3C,76,03,03,3C,7B,603F 
865 DATA 07,03, 76, 06.3C.7B, 04, 03,76,39, 
3C,03,03,3C,3C,7B,6371 
870 DATA 03,03,7B,OF,3C,03,03,7B,03,3C, 
68,F0,F0,D0,7B,2E,68BE 
875 DATA FO, DO, FO,EO, 76,03,03, 76,07, 3C, 
03,03,7B,03,3C,7B,6EC8 
BBO DATA 04,03,3C,03,3C,3C,03,7B,03,3C, 
6S,F0,F0,D0,7B,2E,7404 
885 DATA FO,D0,F0,E0,76,06,3C, 78,05,03, 
3C,7B,05,03,7B,03,7A11 
890 DATA 3C,03,3C,3C,03,7B,03,3C,68,F0, 
F0,D0,7B,2E,F0,D0,B106 
895 DATA F0,E0,7B,03,O3,3C,7B,07,03,3C, 
7B,03,03,3C,03,3C,8550 
900 DATA 03,7B,03,3C,O3,7B,O4,3C,6B,FO, 
F0,D0,7B,2E,F0,D0,8C4C 
905 DATA FO,EO,78,03,03,7B,03,3C,76,03, 
03,3C,7B,05,03,3C,90D3 
910 DATA 03, 3C, 76,03, 03,3C,03, 76,30, 3C, 
7B,03,03,3C, 76,03,9401 
915 DATA 03,3C,7B,05,03,3C,7B,03,03,3C, 
03,7B,39,3C,03,3C,96EE 
920 DATA 78,09, 03, 3C,78,03,03,3C,78,03, 
03,7B,03,3C,03,03,99AF 
925 DATA 76,38, 3C,03,7B,16,3C,7B,35,03, 
7B,04,3C,03,76,4A,9DA4 
930 DATA 3C,03,76,04,3C,03,78,4A,3C,03, 
7B,04,3C,03,7B,08,AOE6 
935 DATA 3C,6C,CC,CC,9C,3C,3C,7B,06,CC, 
3C,3C,CC,9C,3C,3C,A7DF 
940 DATA 6C,CC,3C,6C,7B,05,CC,3C, 78,05, 
CC,9C,6C,7B,05,CC,AEE7 
945 DATA 3C,6C,78,06,CC,3C,7B,05,CC,3C, 
6C,7B,06,CC,78,04,B4D8 
„950 DATA 3C,03,7B,04,3C,03,7B,07,3C,CC, 



7B,06,3C,6C,7B,03,B906 
955 DATA CC,7B,04,3C,CC,9C,CC,9C,6C,CC, 
7B,03,3C,6C,CC,76,C102 
960 DATA 05,3C, CC, 9C,76,03,3C,6C, 78,04, 
CC,9C,3C,6C,7B,03,C6DE 
965 DATA CC,7B,04,3C,CC,9C,3C,3C,CC,9C, 
6C,7B,03,CC,7B,06,CDE4 
970 DATA 3C,03,7B,04,3C,03,76,08,3C,CC, 
9C,3C,CC,9C,3C,6C,D354 
975 DATA CC,76,03,3C,CC,3C,3C,CC,9C,3C, 
3C,CC,CC,7B,03,3C,D«50 
980 DATA 6C,CC,7B,04,3C,6C,CC,CC,7B,03, 
3C,6C,CC,7B,05,3C,EOF5 
985 DATA 6C,CC,7B,03,3C,CC,3C,3C,CC,9C, 
6C,CC,9C,3C,6C,CC,EBDB 
990 DATA 7B,03,3C,CC,7B,04,3C,03,7B,04, 
3C,03,7B,4A,3C,03,ECE1 
995 DATA 7B,04,3C,7B, 10,03, 7B,2F,3C,7B, 
0D,03,7B,13,3C,7B,FOE0 
1000 DATA 31,03,7B,FF,3C,3C,3C,D0,7B,05 
,F0,E0,C0,C0,F0,94,F966 
1005 DATA 7B,3B,3C,68,F0,CO,C0,DO,7B,O5 
,F0,E0,3C,3C,D0,7B,0210 
1010 DATA 04,FO,DO,7B,42,FO,EO,7B,04,FO 
,E0,7B,07,3C,D0,78,0AB9 
1015 DATA 42,FO,EO,76,A6,3C,40,BO,40,80 
, 76,09, 00,C0,7B,22,1189 
1020 DATA 00.3C, 3C,76,03,03,3C, 78,07,03 
, 76, 06,3C, 76,04,03, 1482 
1025 DATA 7B,05,3C,68,94,7B,30,3C,CO,3C 
,03,03,3C,3C, 76,03,1919 
1030 DATA 03,7B,OF,3C,03,03,7B,03,3C,6a 
,FO,FO,DO,7B,2E,FO,1F53 
1035 DATA DO,F0,EO,7B,O3,O3,7B,07,3C,O3 
, 03, 78,03,3C,7B, 04,2471 
1040 DATA 03,3C,03,3C,3C,03,7B,03,3C,68 
,F0,F0,D0,7B,2E,F0,2A99 
1045 DATA D0,F0,E0,7B,06,3C,78,05,03,3C 
,76,05,03,78,03,3C,2FF2 
1050 DATA 03,X,3C,03,7B,03,3C,68,F0,F0 
,D0,7B,2E,F0,DO,FO,3796 
1055 DATA E0,78,03,03,3C,7B,07,03,3C,7B 
,03,03,3C,03,3C,03,3AF8 
1060 DATA 7B,03,3C,03,7B,04,3C,68,FO,FO 
,D0,7B,2E,F0,D0,F0,42E1 
1065 DATA E0,76,03,03,78,03,3C,7B,03,03 
,3C,7B,05,03,3C,03,467B 
1070 DATA 3C,7B,03,03,3C,03,7B,3D,3C,7B 
,03,03,3C,7B,03,03,49A9 
1075 DATA 3C,7B,05,03,3C,7B,03,03,3C,03 
, 76,39, 3C,03,3C,7B,4D0E 
1080 DATA 09,03,3C,7B,03,03,3C,7B,03,03 
,7B,03,3C,03,03,7B,4FCF 
1085 DATA 38,3C,03,7B,16,3C,7B,35,03,7B 
,04,3C,03,7B,4A,3C,53B5 
1090 DATA 03,7B,O4,3C,03,7B,4A,3C,03,7B 
„04,3C, 03, 76,08, 3C.56C7 



19 



1095 DATA 7B,04,CC,3 
,CC,9C,3C,3C,6C,CC,: 
llOd DATA 3C,3C,7B,0 
,CC,3C,3C,78,05,CC,< 
1105 DATA 9C,3C,7B,0 
,9C,3C,7B,06,CC,7B,< 
1110 DATA 04,3C,03,' 
,CC,7B,06,3C,4C,7B,i 
1115 DATA 03,CC,7B,( 
,CC,78,03,3C,6C,CC,7 
1120 DATA 7B,05,3C,I 
,04.CC,3C,3C,oC,7B,7 
1125 DATA 03,CC,76,0 
, 9C,6C, 76,03, CC, 76,! 
1130 DATA 06,3C,03,7 
,7B,04,CC,3C,3C,7B,B 
1135 DATA 04.CC.3C3 
,7B,03,3C,6C,CC,7E,f 
1140 DATA 03,3C,4C,7 
,9C,7B,04,3C, 76,06,' 
1145 DATA CC,3C,6C,7 
,CC,7B,04,3C,03,7B,9 
1150 DATA 04, 3C, 03,7 
,7B, 10,03,76, 2F, 3C, 9 
1155 BATA 7B.0D.03, 
,FF,3C,3C,X,68,7B,l 
1160 DATA 04,FO,EO,D 
,3C,48,76,03,F0,E0,A 
1165 DATA Dû, 78,04, F 
,F0,D0,7B,42,F0,E0,I 
1170 DATA 76,04, F0,E 
,CO,94,7B,A6,3C,40,1 
1175 DATA SU, 00,00,' 
,O0,4O,C0,C0, 00,40,6 
1180 DATA C0,80,00,l 
,C0,C0,00,C0,40,C0,C 
1185 DATA OO,C0,40,C 
,4Û,C0,00,3C,3C,7B,C 
1190 DATA 03,03,3C,; 
,04,Û3,78,05,3C,90,C 
1195 DATA 60,7B,2F,; 
,3C,7B, 03,03, 7B,0F,D 
1200 DATA 3C,03,03,: 
,7B,2E,F0,D0,F0,E0,D 
1205 DATA 7B,03,03,: 
,3C,7B,O4,O3,X,03,D 
1210 DATA 3C,3C,0 
,7B,2E,F0,DÛ,FO,E0,l 
1215 DATA 7B,06,3C,: 
,7B,03,3C,03,3C,3C,E 
1220 DATA 03,7B,03,; 
,F0,DO,FO,E0,7B,03, 
1225 DATA 03,3C,78,I 
,03,3C,03,7B,03,3C,F 
1230 DATA 03,76,04,3 
,D0,F0,E0,78,03,03,F 
1235 DATA 7B,03,3C,; 





l(j 


r^. 


£\ 
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rj,^ 






3C,3C,76,06,CC,3l,3C* 


*,3C, 03, 3C, 76,03, 03.003C 


*» 


*1380 DATA 3C,03,3C,3C. 03,76, 03,3C,68,FO 


5D67 


1240 DATA 3C,03,7B,3D,3C.7B,03,03.3C,"r 


,FO,DO,7B,2£,F0,DO,A42B 


04,CC,9C,3C,6C.7B,04 


,03, 03.3C, 76,05, 03.036C 


1385 DATA F0,E0,3C,3C, 76,03,03,76,07, 3C 


637D 


1245 DATA 3C,76,03,03,3C,03,7B,39.3C,03 


,03, 76,03, 3C,03,3C,A8AB 


06,CC,3C,6C,7B,04,CC 


,3C,7B,09,03,3C,7B,06D5 


1390 DATA 7B,03,03,3C,O3, 03,76, 03,3C.iB 


6A35 


1250 DATA 03,03. 3C, 76,03,03,76,03. :C, 03 


,FO,FO,DO,76.2E.F0,AED9 


7B,04,3C,03, 76,07, 3C 


,03, 76,38, 3C.03.7B.09C5 


1395 DATA D0,F0,Eû,03,7B,O9,3C,û3,7B,03 


6E64 


1255 DATA 14,3C,7B, 35,03,76, 04,3C,03,7B 


.3C,03,3C,03,3C,03,B37A 


04,3C,CC,9C,6C,9C,6C 


,4A,3C, 03,76, 04.3C, 0D47 


1400 DATA 7B,03,3C,03,76,05,3r,DO,EO,7B 


7588 


1260 DATA 03,7E,4A,3C,03,7B,04,3C,03,7B 


,2F,3C,68,F0,94,3C,B9B1 


CC,9C,7B,03,3C,t£.7B 


,08,3C,CC,9C,3C,CC,123B 


1405 DATA 3C,7B,03,03,3C,03,3C,03,7B,07 


7B7C 


1265 DATA 9C,3C,6C,CC,7B,03,3C,CC.3C,3C 


, 3C, 03 . 7B , 03 . 3C , 03 , BC6S 


04, 3C,Ce,9C,3C, 3C.CC 


,CC,CC,3C,3C,6C,CC,1991 


1410 DATA 3C,03,7B,39,3C,7B,03, 03,70.07 


827F 


1270 DATA 7B,03,3C,CC,CC,9C,7B,J3,3C,4C 


,3C,03,3C,03,7B,05,BF9A 


7B,04,3C.03.7B,0B,3C 


,CC,CC. 7 8,03,3C,6C,2063 


1415 DATA 3L,03,7B,03.3C, 03,78,39, 33.03 


B67F 


1275 DATA CC,3C,3C.CC.9C.3C,6C,CC,7B,Û3 


,78,OD.3C,78,03,03,C2CE 


3C,CC,9C,3C,3C,6C,CC 


,3C,CC,3C,3C,CC,9C,27E9 


1420 DATA 7B,06,3C,03,7B.38,:.:,03.7B.4A 


8D4E 


1280 DATA 6C,CC,9C,3C.6C,CC.-B,03,3C.CC 


,3C, 03,76, 04, 3C03.C642 


7B,04,CC,3C,3C,CC,CC 


,76,04,3C,03,7B,04.2DF4 


1425 DATA 76,4A,3C,03,7B, 04.3C,03,76,4A 


932C 


1285 DATA 3C,03,7B.07,3C,CC,76,06,3C,6C 


,3C,03,7B,04,3C,03,C9C6 


76,04, CC,9C,3C,7B,06 


,76,03.CC,7B,04,3C,32EB 


1430 DATA 76,07, 3C,6C,CC,3C,3C.6C,9C,3C 


9949 


1290 DATA CC, 9C,6C,CC, 6C,CC,7E,03,3C,6C 


, 6C.CC, 7 B, 03, 3C,CC,D036 


7B,4A,3C,03,7B,04,3C 


,CC,7B,05.3C,CC,9C,3AD9 


1435 DATA 3C,3C,CC,CC,3C,3C,6C,CC,7B,03 


9C6F 


1295 DATA 7B,03,3C,6C,7B,03,CC,7B,Û3,3C 


,3C.6C,CC,7B,05,3C,D6A4 


76,13, 3C,76,31, 03, 7B 


,6C,7B,03,CC,7B,04,4038 


1440 DATA CC,9C,7B,03,3C,6C,CC,3C,3C.6C 


A1D4 


1300 DATA 3C,CC,9C,3C,3C,CC,9C,6C, 76,03 


,9C, 3£,4C,CC, 78.03.DC70 


DO, 7B,O3,F0,94, 76.38 


,CC,7B,06,3C,03,7B,46AD 


1445 DATA 3C,CC,3C,3C,CC,9C,3C,CC,9C.3C 


AA1F 


1305 DATA 04,3C,03,76,0S,3C,6C,CC,CC,9C 


,6C,CC,7B,03,3C,CC,E4F6 


F0,94,3C,3C,D0,7B,04 


, 3C,3C,7B, 06.CC, 3C4C50 


1450 DATA 7B,04,3C,03,7B,04,3C,03,7B,07 


B306 


1310 DATA 3C.CC, 9C,3C.3C,6C,CC,7B,03.3C 


. 3C.CC. 78, 04.3C6C.E923 


E0,78,07,3C, 68, 76,42 


,CC,CC.9C,3C,3C, 7B.5385 


1455 DATA 3C,6C,CC,3C,CC,7B,04,3C,CC,9C 


6A29 


1315 DATA O5,CC,9C,6C,7B,O3,CC,7B,03,3C 


, 3C.CC, 6CCC, 78,03, F080 


40,80, 40,80,C0,40,C0 


,6C,7B,06,CC,3C,7B,59D2 


1460 DATA 3C,6C,CC,7B,Û5,3C,CC,9C,7B,03 


BFE9 


1320 DATA 05,CC,3C,6C,7B,06,CC,7B,04,3C 


,3C,6C,CC, 76,05, 3C.F4C6 


CO, 00, 40,B0, 76,05,00 


,03,7B,04,3C,03,7B,5E8F 


1445 DATA 6C,CC,3C,CC,"B,04,3C,CC,9C,3C 


C669 


1325 DATA 4A,3C,03,7B,04,3C, 76,10,03,76 


,3C,CC,9C,4C,CC,3C,FE7D 


CO,OÛ,00,CO,CO,00,CO 


,2F,3C,76,0D,03,7B,624D 


1470 DATA CC, 76,06, 3C03.76, 04, 3C,03,7B 


CC5C 


1330 DATA 13,3C,7B,31,03.7B,FF,3C,3C,3C 


,09,3C,4C,CC,7B,03,033D 


76,07, Û3,7B,06,3C,7B 


,A8,7B,04,F0,DO,7B,689B 


1475 DATA 3C,7B,04,CC,3C,4C,CC,CC,3C,3C 


CFAE 


1335 DATA 04,FO,94,7B,38,3C,6B.76,04,FO 


,6C,CC,9C,3C,4C,76,0A75 


3C,6B,30,94,03,03.3C 


,E0,76,04,F0,94,3C,70O8 


1480 DATA 03,CC,3C,3C,7B,05,CC,9C,6C,7E 


D3A9 


1340 DATA 68,7B,05,F0,D0,7B,42,FO,EO,7B 


, 03.CC, 7B,03,3C,ljC,1080 


7B,Û3,3C,68,F0,F0,D0 


,05,F0, 94,76, F0,3C,78E8 


1485 DATA 7B,04,CC,3C, 76,04, CC,9C,3C,6C 


DBF6 


1345 DATA 00,CO,CO,00, 40, 80,40,80,40,80 


,7B,06,CC,78,04,3C,16A0 


76,07,3C,03,03,76,03 


,40,80.00,CO,7B,04,7EA7 


1490 DATA 03,78, 04, 3C03, 76, 4A.3C, 03,76 


DE66 


1350 DATA 00. CO,0Û,40,BO,C0, 76,05, 00,40 


,13,3C,03,7B,2F,3C,1A18 


76,03,3C,68,F0,F0,D0 


,80,40,80,40X0,40,8427 


1495 DATA 03,7B,FF,3C,76,52,3C,68,7B,04 


E73C 


1355 DATA 80,40,C0,40,80.4O,8O,40,B0,40 


,F0,7B,44,C0,7B,04,20AF 


76,05,Û3,3C,7B,05,03 


,C0,40,80,3C, 03,03, B9E9 


1500 DATA FO, 94, 3C, 76,06, C0.DO,7B,42,F0 


EA70 


1360 DATA 3C,03,3C,03,76,05,3C, 76,08,03 


,E0,7B,06,CO,7B,FO,29B9 


3C,68,F0,F0,D0,7B,2E 


,3C,3C,03,78,04,3C,8CDF 


1505 DATA 3C,00,00, 40, 80,40, 80,40, 80,40 


F2FC 


1365 DATA 6B,30,30,76,2F,CO, 90,30,60.03 


, 80,40, 80,00,CO,00,2E75 


07,03, 3C,7B, 03,03, 3C 


,7B,0A,3C,7B,05, 03,9178 


1510 DATA 00,40,C0,C0,0o,00,Cû,B0,7B.05 


F565 


1370 DATA 3C,3C,76,03,03,3C,3C,03,76,03 


,00,40,CO,CO,80,40,3475 


3C,68,F0,F0,7B,2F,C0 


,3C,4B,F0,FO,D0,7B,9739 


1515 DATA 80,00,00,40,80,00,00,40,80,40 


FD46 


1375 DATA 2E,F0,D0,F0,E0,3C,3C,7B,05,03 


, 80,40,80,00, 00,3C,3831 


76,03, 03,3C,7B,05, 03, 


,,7B,03,3C,03,78,09,9D33 


*> 


,1520 DATA 03,03,3C,03,3C,03,73,05,3C,78 
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,0B,03,3C,3C,03,7B,3AED ' 

1525 DATA 04, 30,68, 90,60, DO. 76, Ï.FO.CO 

,30,C0,03,7B,0A,X,41o2 

1530 DATA 76,05,03,30, 30. 76,03.03.30,30 

,03,78,03,3C,6B,F0,456B 

1535 DATA F0,D0,7B,2E,F0,D0,F0,E0,3C,3C 

, 7B, 05,03, 7B.03, IC, 4D19 

1540 DATA 03,76,09,30,03,30,30,03,76,03 

,3C,68,F0,F0,D0,7B,52A7 

1545 DATA 2E.F0, DO, F0,E0,3C,3C,7f. 03,03 

,7B,07.3C,03,7B,03.5B=îD 

1550 DATA 30,03,30,76,03,03,30.03,03,76 

,03,3C,6B,F0,F0,D0,5DAD 

1555 DATA 7B,2E,F0,D0,F0,EO,O3,7B,O9,3C 

,03,7B,03,3C,03,3C,63A5 

1560 DATA 03,3C,03,7B,Û3,3C,Û3,7B,05,3C 

,68,94,7B,30,3C,CO,6803 

1565 DATA 7B,03,3C,7B, 03,03, 3C,Û3,3C,03 

,7B,07,3C,û3,7B,03,6AF6 

1570 DATA X,03,X,03, 76,39.30, 78,03,03 

,7B,07,3C, 03,30, 03, isDEÀ 

1575 DATA 7B,05,3C, 033,03,30, 03,7B,3= 

,3C, 03, 7B,0B,3C. 78,7198 

1580 DATA 03,03,76,06,30,03,76.38,70.03 

,7B,*A,3C, 03, 78, 04,7403 

1585 DATA 3C,03.7B.4A,3C, 03,76, 04, 3C.03 

,7B,4A,3C,03, 76.04,7357 

1590 DATA 3C,03. 76,07.30,60, 90, 7B,03,3C 

,CC,3C,6C,CC,3C,6C,7DFE 

1595 DATA 3C6C3C, 30,00, CC,9C,X,6C,CC 

,7B, 03, 30,60, CC,7B,S533 

1600 DATA 05,3C,CC,9C, 76,03, 3C.6CCC. 30 

,3C,6C,9C,3C,oC,CC,8BC2 

1605 DATA 3C,6C,3C,6C,3C.3C, 00,90,30.60 

,CC,3C,6C,CC.3C,6C,9282 

1610 DATA 30,60,78,04, 30, 03, 7B,04,3C,03 

,7B,07,3C,CC,7B,04,96AF 

1615 DATA 3C,6C,3C,6C,CC, 3C.CC, 76,04, 3C 

,CC,9C,3C,7B,03,CC,9D7C 

1620 DATA 76,03, 3C,6C,CC,7B,05.3C,CC,9C 

,7B,03,3C,6C,CC,7B,A3FF 

1625 DATA 05,3C,6C,CC,3C,CC.7B,04,3C,CC 

,9C,3C,3C,CC.3C,6C,AA8F 

1630 DATA CC,3C,CC,7B,06,3C,03,7B,04,3C 

,03,7B.4A,3C,03,7B,AF60 

1635 DATA 04,X,03,76,4A,3C,03,76, 13.3C 

,03,7B,2F,3C,03,7B,B2D8 

1640 DATA FF,3C,7B,53,3C,D0,76,03,F0,DO 

, 76,42, F0,E0,7B, 03, BB36 

1645 DATA FO,EO,78,08,3C,DO,7B,42,FO,E0 

,7B,F6,3C,40,80,40,C3CF 

1650 DATA 80,00,C0,C0,80,40,80,40,80,00 

,C0,40,B0,CO,OO,C0,CACF 

1655 DATA 00,40,80, C0,7B, 05, 00,40,80, 00 

,00,40, 80,00,00,40, CE8F 

1660 DATA 80,00,00,40,80,40,80,40,30,00 

,00,X,03,03,3C,03,D1D0 



1665 DATA 3C,03,7B,05,3C,7B,OB,03,3C,3C* 
,03,7B,04,3C.68,EO,D5CF 
1670 DATA DO,D0,7B,2E,F0,D0,C0,E0,03.7B 
,0A,3C,7B,05.03,3C,DCF6 
1675 DATA 3C, 76,03. 03,3C,3C,03.7B,03,3C 
,68,F0,F0,D0,7B,2E,E2AE 
1680 DATA F0,D0,F0,E0.3C,3C, 76, 05.03, 76 
, 03,30, 03,7B,09,30,E3B6 
1685 DATA 03,3C,3C,03,7B,O3,3C,6B,FO,F0 
,D0,7B,2E,F0,D0,F0,F05F 
1690 DATA E0,3C,3C,7B,03,03,7B,07,3C,03 
,7B,03,3C,03,3C,7B.F46D 
1695 DATA 03,03,30,03,03, 76,03, 3C,68,F0 
,F0,D*,76,2E,F0,DO,FAF0 
1700 DATA FO,EO,03,78,09,X,03,7B,03,30 
,03,3C,03,3C,03,7B,FF3C 
1705 DATA 03,30,03,76,38,30,78,03,03,30 
, 03, 3C.03, 76,07, 3C.022D 
1710 DATA 03,78,03,3C,03,3C,03,7B,39,3C 
,7B,03,03,7B,07,3C,0556 
1715 DATA 03,30,03,76, 05,30, 03,76,03,X 
,03, 78,39, X.03, 76,0887 
1720 DATA 0D.3C. 76,03,03, 76, 06.3C, 03,76 
,38,3C,03,7B,4A,3C,OC04 
1725 DATA 03. 78,04, 30,03, 76, 4A,X,03,7B 
,04,3C,03,7B,4A,3C,0F88 
1730 DATA 03,7B,04,3C, 03,76, 07,3C,CC,9C 
,7B,03,3C,CC,3C,6C,149D 
1735 DATA CC,3C,6C,3C,6C,3C.3C,CC,CC,9C 
,3C,6C,CC,7B,03,3C,1B93 
1740 DATA 6C,CC, 76,05, 3C,CC,9C,7B,03,3C 
,6C,CC,3C,3C,6C,9C,22ôl 
1745 DATA X,6C,CC,3C,6C,3C,oC,X,3C,CC 
,9C,3C,sC,CC,X,60,2921 
1750 DATA CC,3C,6C,3C,6C,7B,04,3C,03,7B 
,04,3C,03,7B,07,3C,2D77 
1755 DATA 00,90, 76,03,30, CC.X,6C,CC,3C 
,60,30. 60, X, 30,00, 346D 
1760 DATA 9C,X,6C,CC,CC,7B,Û3,3C,6C.CC 
,7B,05,3C,CC,9C,76,3BDA 
1765 DATA 03,3C,6C,CC,7B,05,3C,6C,CC,3C 
,6C,X,6C,3C,3C,CC,41D9 
1770 DATA 9C,X,6C,CC,X,6C,CC,X,6C,X 
,6C.7B,04,30,03,7B,47E6 
1775 DATA 04,3C,03,7B,4A,3C,03,7B,04.3C 
,03,7B,4A,3C,03,76,4B6A 
1780 DATA 13,3C,03,7B,2F,3C, 03,76, FF, 3C 
,3C,7B,0B,CO,7B,3A,5092 
17B5 DATA 3C,7B,0B,C0,3C,6B,7B,04,F0,D0 
,7B, 42, FO,EO, 76, 04,5803 
1790 DATA FO,94,7B,07,3C,D0,7B,42,FO,E0 
,7B,F6,3C,00,C0,C0,60CF 
1795 DATA 7B,03,00,40,B0,40,B0,4O,B0,0O 
,40,CO, 00,40, C0,40,65CD 
1800 DATA 80, C0,0O, 40,80, 78, 05,00, CO,C0 
, 00,00,00,00, 00,C0,6C0D 
l 1805 DATA C0,7B, 03,00, C0,C0,00,C0,C0, 00 



,00.30,03,03 


X 


03.70CC 


1810 DATA 3C 


03 


76,05, 3C,76,0B,03,3C,X 


,03, 76,04, X 


68 


F0.74DB 


1815 DATA FO 


DO 


7B,2E,F0,DO,FO,E0.03,7B 


,0A, 3C,7B,05 


03 


3C.7C57 


1820 DATA 30 


7B 


03,03,30, X, 03.76,03. 30 


,68,F0,F0,DO 


7B 


2E.820A 


1S25 DATA FO 


DO 


FO,E0, 30,30, 76,05, 03, 7B 


,03,3C,03,7B 


09 


3C.B812 


1B30 DATA 03 


X 


3C,03,7B,03,3C,6B,F0,F0 


,D0,7B,2E,F0 


DO 


FO.SFBB 


1835 DATA EO 


30 


30, 78,03,03,76, 07,30,03 


.78,03,30.03 


3C 


7B.93C9 


1840 DATA 03 


03 


3C,03,03,7B,03,3C.68,FO 


,F0,D0,7B,2E 


FO 


D0.9A4C 


1845 DATA FO 


EO 


03,76,09,30, 03,76,03,30 


,03,X, 03,30 


03 


7B.9E98 


1850 DATA 03 


30 


03,7E,3B,3C,7B,03,03,3C 


,03,30,03,76 


07 


30, A 189 


1B55 DATA 03 


7B 


03, 30,03, X.03, 7B,39.3C 


,78, 03,03, 7B 


07 


X.A4B7 


1360 DATA 03 


3C 


03,76,05,30,03,78,03,30 


,03,76,39,30 


03 


7B,A7E3 


1865 DATA OD 


3C 


7B,03,03,7B,06,3C,03,7B 


,38,X,03,7B 


4A 


3C,AB60 


1870 DATA 03 


7B 


04,3C,03,78,4fl,3C,03,7B 


, 04.3C, 03, 7B 


4A 


3C,AEE4 


1B75 DATA 03 


7B 


04,30,03,76,07, X.CC.7B 


,04,3C,6C,3C 


6C 


CCB3CA 


1880 DATA 30 


CC 


76, 04,3C,7B,03,CC, 30,60 


,CC,76,03,X 


60 


CC.BA3D 


1B85 DATA 7B 


05 


3C,CC,9C,76,03,3C.6C,CC 


,X,3C,6C,9C 


30 


6C,C07B 


1B90 DATA CC 


X 


CC,76,04,3C,CC,9C,X,3C 


,CC,3C,6C.CC 


X 


CCC832 


1895 DATA 76 


06 


30,03, 76,04, 30,03, 7B,07 


,3C,6C,9C,76 


03 


X.CC30 


1900 DATA CC 


X 


6C,CC,3C,6C,3C,6C,30,3C 


,CC,9C, 30,60 


CC 


CCD3E0 


1905 DATA 76 


03 


30,60,00,76, 05. 3C.CC, 90 


,7B,03,3C,6C 


CC 


76.DA63 


1910 DATA 05 


X 


6C,CC,X,6C,X,6C,3C,3C 


,CC,9C,3C,6C 


CC 


3C.E0BC 


1915 DATA 60 


00 


30,60, 30,60,76,04, 3C. 03 


, 76, 04, X, 03 


7B 


4A.E585 


1920 DATA 3C 


03 


78,04,30,03,7B,4A,3C,03 


,7B, 13,30,03 


7B 


2F,E8FD 


1925 DATA X 


03 


7B,FF,3C,X,68,7B,OA.F0 


,94,7B,38,3C 


68 


7B,EF71 


1930 DATA OA 


FO 


94, 30,63, 7B,04,F0,D0,7B 


,42,F0,E0,78 


04 


F0.F7DE 


1935 DATA 94 


7B 


07,30,D0,7B,42,F0,E0,76 


,F6,3C,7B,04 


00 


40,FEF9 


1940 DATA 00 


00 


78,27,00,40,80,00,00,00 


,00,00,00,00 


00 


00.01DB 


1945 DATA 00 


00 


00,00,00,00,00,00,00,00 


,00,00,00,00 


00 


00,0108» 
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GESTION D'AUTOMOBILE 



MARTIAL STAU 




Ce programme vous 
permettra d'enregistrer 
toutes les opérations 
d'entretien et de réparation 
de votre voiture automobile 
ainsi que les dépenses de 
carburant. Le mode d'emploi 
comprend 1 1 options. 

• Saisie des opérations 

Lors de la première utilisai ion, cette option 
vous demandera quelques renseignements 
sur votre véhicule. 

Lors d'un appui ultérieur, le programme 
vous demandera la date, le kilométrage, 
le type d'opération (entrelien, réparation 
ou divers) puis les dépenses occasionnées. 




• Menu des recherches 

[-a recherche peut s'effectuer selon la date, 
la nature de l'opération, les pièces, les 
accessoires, le garage, les dépenses. 

• Consultation par opération 

Vous pouvez avoir accès aux fiches entre- 
tien, réparation ou divers. 

• Consultation de la totalité 
des fiches. 

• Dernière intervention. 

Après avoir entré la dénomination de l'in- 
tervention, vous aurez une visualisation de 
la fiche, le total kilométrique depuis la date 
indiquée. 

Attention la recherche s'effectue unique- 
ment sur la nature de l'intervention ou sur 
les pièces changées. 

• Sauvegarde des données (pas plus de 8 
lettres pour le nom du fichier). 

• Chargement des données. 

• Total des dépenses à ce jour. 

• Graphique : cette option vous indique 
sous forme de graphique les 10 dernières 
interventions concernant l'opération choi- 
sie. Cela permet d'observer la régularité 
des interventions. 

• Saisie des dépenses de carburant 

• Diverses informations : 

vous y trouverez des indications sur tou- 
tes les dépenses, le prix au kilomètre de 
votre véhicule et la consommation 
moyenne au 100. 



10 


>LA 


20 ***********#*+*********##*##* 


>LB 


30 GESTION DEPENSES ET CONTROLE 


LC 


40 ENTRETIEN VOITURE 


>LD 


50 (ci STAUB Martial 


lE 


60 AVRIL 1988 


>LF 


70 ##**#****♦***♦«***+**♦**#♦#*# 


>L6 


80 ON ERR0R GOTO 4050 


>PT 


90 BORDER 13: INK 0,13:» 1,0 


HJ 


100 PAPER 0:PEN UM0DE 2 


RF 


110 DIH c(12),da«(50!,kil(50),nat$ 


h: 


(50i,ctit(50>,pie$(50).ace*(50l,gar« 




(50>,dep(50) 




120 i$="MMNMHMHI,.## F": il*="#*#*## 


BD 


..##" 






RE 




140 MENU PRINCIPAL 


>RF 


150 ' 


RG 


160 CLS 


UE 


170 0RIGIN 116,390:DRAH 384,0:DRAW 


>VE 


384.-2B:DRAW 0,-28:DRAN 0.0:0RIGIN 




120,3B6:DRAkl 376,0:DRAW 376,-20:DRA 




H 0,-20: DRAM 0.0 




180 L0CATE 19,2:PRINT"* ♦ t CARNET 


>KU 


D'ENTRETIEN VOITURE « « » 




190 0RIGIN 6.310:DftAW 628,0:DRAH 62 


FY 


8,-248:DRAW 0,-248:DRAW 0,0 




200 LDCATE 21,7:PRINT"w« 11 E N U 


BU 


PRINCIPAL **»":L0CATE 21. 




8:PRINT STRIN6$(36,154) 





/ 
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210 ORIGIN 12.264:DRAW 61ô,0:DF.AW 6 
I6,-192:0RAH 0,-192:DRAW 0,0:0RI6IN 

16,260iBWI 608,0:BM* 60B,-1B4:DR 
m 0,-184:DRAH 0,0 
220 LOCftTE 4,10:PRINT"1. Saisie des 

Operations":LOCATE 4, 12:PRINT"2. R 
echerches":LOCATE 4.14:PPINT"3. Con 
sultation par Operation":LDCATE 4,1 
6:PRINT"4. Consultation Total des F 
lches":L0CATE 4,18:PRINT"5. Dernier 
e Intervention" 

230 LOCATE 44,10:PRINT"6. Sauvegard 
e des Fiches":L0CATE 44,12:PR1NT"7. 

Chargement des Fiches":L0CATE 44,1 
4:PRINT"8. Total des Deoenses":LCCA 
TE 44,16:PRINT"9. Sraphi que": LOCATE 

44,18:PRINT"0. Saisie Dépenses Car 
Durant" 

240 LOCATE 4, 20: PRINT'XXXXXXXXXXXXX 
XXX>X ";CHRt(24); " [Iinformatio 
ns diverses ":CHR»i24);" tUU 

xxxxxxxxxxxxxxx" 

250 IF »<>" THEN lc=INT<LENtf$i )/ 

2:L0CATE 27-Ic,5:PRINT CHR*(24'i" D 

0SSIER : ":UPPER»ifS):" EN MEMOIRE 

";CHR*i24i 

260 IF n>nl THEN LOCATE 12,23:PRINT 

■ATTENTION VOUS AVEZ EFFECTUE DE NO 

UVEAUX ENREGI3TREMENTS":L0CATE 24.2 

4:PRINT"N0UBLIEZ PAS DE LES 5AUVE6A 

RDER" 

270 PRINT CHR»!7!; 

280 a«=II*Eï*:IF a**" THEN 280 

290 IF a*=T THEN 790 

300 IF A«="2" THEN 1130 

310 IF a*="3" THEN 3110 

320 IF a»="4" THEN 2470 

330 IF a*="5" THEN 2870 

340 IF a$="6" THEN 410 

350 IF a*="7" THEN 620 

360 IF a*="8" THEN 2560 

370 IF a«="9" THEN 3310 

380 IF a»="0" THEN 3660 

390 IF UPPER*la«)=T THEN 3830 

4M GOTO 280 

«•' jsSk 

420 'Sauvegarde = 
430 ' 

440 CLS 

450 LOCATE 30,2:PRINT CHR$(24); n S 

A U V E 6 A R D E ";CHR*(24I 

460 LOCATE 2,5:PRINT"Entrei le No» 

du Fichier ivoiturel" 

470 IF f»©"" THEN LOCATE 21,13:PRI 

NT-VOUS AVEZ LE DOSSIER ":lFPER«(f* 

);" EN MEMOIRE" 

4B0 LOCATE 2,8:PRINT"[RETURN]=Retou 



I 




Menu " 

490 LOCATE 2,7:PRINT"No» : " ; CHR* ( 1 
S!;: INPUT -f*: IF f»="" THEN GOTO 130 
ELSE IF LEN(f»)>8 THEN 490 
500 PRINT: OPENOUT «+".VOI" 
510 CLS 

520 LOCATE 24,10:PRINTTa disguette 
est-elle prête ?" 

530 LOCATE 23, 12:PRINT"îape: sur ES 
FACE pour commencer" 
540 R»=INKEY*:IF R*=" " THEN 56C 
550 SOTO 540 

560 CLS:LOCATE 20,lliPRINT"ENREGIST 
REMENT •;»;• EN COURS" 
570 URITE#9,r,:F0fi 5=1 TO n:BRITE»9, 
dat$!s),til(sl,ch$(s),nat*(sl.pie$( 
5),ace»(si,garS(si,dep(5):NEXT 
5B0 WRITEt9,dt*,lit,ll,toc,cll 
590 CLOSEOUT 
600 nl=n 
610 GOTO 130 

620 

630 CHARGEMENT 

640 ' 

650 CLS 

660 LOCATE 29,2:PRINT CHR$i24):" C 

H A R G E M E N T ";CHR$i24! 

670 LOCATE 2,5:PRINT"Entre: le No» 

du Fichier (voiture)" 

680 IF «<>"" THEN LOCATE 21,13:PRI 

NT'VOUS AVEZ LE DOSSIER ";UPPEF:*'F* 

l|" EN MEMOIRE" 

690 LOCATE 2,B:PRINT"[RETURN]=Retou 

r Menu" 

7» LOCATE 2,7:PRINT"No« : ";CHR»(1 

Bl ; : INPUT «:1F f*=" K THEN 130 ELSE 

IF LEN(«)>8 THEN 700 
710 PRINTlOFtNIN f«*".V0I" 
720 CLS 

' 730 CLS:L0CATE 26, 11:FRINT"CHAPGEME 
NT EN COURS" 

740 INFUT#9,n:F0R s=l TO n:INPUT#9, 
dat*isi,kil(5),ch*!s),nat«(5),pie*( 
s),ace«(s!,gar*(s),depi5):NEXT 
750 INPUT#9,dt«,lit,»l,toc,cml 
760 nl=n 
770 CLOSE IN 
780 GOTO 130; 

790 ' 

800 'ENT./REP. 
810 ' 

820 as 

830 ORIGIN 52,390:DRAW 544,0:DRAW 5 
44,-28:DRAN 0,-2B:DRAW 0,0:0RI6IN 5 
6,3B6:DRAW 536,0:DRAN 536,-20:DRAW 
0,-20:DRAN O,O:L0CATE 9,2:PRINT"« 
ENREGISTREMENT DE 




/ 



S OPERATIONS ««" 

840 IF n=0 THEN n=l:LOCATE 22.7:PRI V 

NT'ATTENTIEN CECI EST LA FREMIERE F 

ICHE":LOCATE 13,8:PRINT"ELLE SERT U 

NIOUEMENT A ENREGISTRER L'ACHAT DU 

VEHICULE" :605UB MOOlBOTO 1090 

850 LOCATE 9.4:PRINT"D0SSIER " ; CHR* ' UJ 

i24i;" "lUPPERt'Ul;" " iCHR* ■124 r :L0 

CATE 43,4:PRINT"Dernier Fiche Enreg 

istree : ";CHR«(241 ; n ; CHR» C24 ! 

860 ORIGIN 6B.322:DRAW 144,0:DRhW 1 EL 

44,-20:DRAW 0,-20:DRAN 0,0 

870 n=n+l >EK 

880 LOCATE 16,6:PRINT SPACE* ! 1 1 ) : LO ;RM 

CATE 10,6:INFUT"DATE : ";dat«!nl 

890 IF LEN(dat«(n))>8 OR VALIMIDS'd NT 

at»(nl,4,2));12 OR VAL(MID*(dat$(n) 

,4,21X1 THEN 880 

900 LOCATE 62,6:PRINT CHR*il8) YV 

910 ORIGIN 388,322:DRAN I84,0:DRA» >YF 

1B4,-20:DRAN 0,-20:DRAW 0,0:LOCATE 

17,6:PRINT SPACE» (1):L0CATE 50,6: IN 

PuT'KILOMETRES : ":kil(nï:IF killn) 

:i,il!n-l) THEN LOCATE 56,B:PRINT"ER 

REUR ,M, ":FOR t=l TO 1ÛOO:NEXT;LOC 

ATE 55,8:PRINT CHRt!18> :G0T0 900 

920 LOCATE 63,6:PRINT SPACEJU! ZN 

930 LOCATE 2,9:PRINT"S'agit il de >DZ 

[Elntretien":LOCATE 18,10:PF;INT'[ 
R]eparation":LOCATE 1B, ll:PRINT"tDl 
ivers" 

940 LOCATE 40,10:PRINT"Votre choiï" IJY 
iCHR$(13);: INPUT ch*(n) :ch»(n)=UPPE 
R»(ch*(n)):IF ch*(n!="D" OR ch»!n)= 
■R" OR ch*ln)="E" THEN 950 ELSE 940 

950 LOCATE 1,9:PRINT CHR»(20i >XR 
960 IF ch»(n)="E" THEN GOSUB 110(i >YD 
970 IF chlini="R" THEN GOSUB 1110 >ZL 
980 IF ch*(n)="D" THEN GOSUB 1120 >YG 
990 kl=kil(n>-kil(n-l):LOCATE 10,8; >EC 
PRINT"Vous ave: effectue ";kl;" Kms 

depuis la dernière intervention":!; 
1=0 
1000 LOCATE 2,13:PR1NT"NATURE m 

: ";CHR»I1B):0RISIN 124,210:DRAW 4 
40,0:DRAU 440,-20:DRAH 0,-20:DRAW 
,0:L0CATE 18, 13:LINE INPUT nat«(n): 
IF LENInat»(n))>50 THEN LOCATE 1,14 
:PRINT CHR«(18):G0T0 1000 
1010 LOCATE 18,13:PRINT SPACEtd) >AN 
1020 LOCATE 2,!5:PRINT"PIECE CHANGE >AD 

: ":CHRS(1B):0RI6IN 124,!78:DRAW 4 
40,0: DR/* 440,-20:DRAW 0,-20:DRAH 
,0:LOCATE 18,15:LINE INPUT|pie*(n): 
IF LEN(pie*(n>) 50 THEN LOCATE 1,16 
:PRINT CHR«(I8):GOT0 1020 
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VD | 

/ 



>CE 
( 



U 



[030 LOCATE 18,15:PRINT SPACE* (1 ) : L 
OCATE 2,17:PRINT"Suite : ";C 
HR»(18):0RI6IN 124.146:DRAM 240,0:0 
RAW 240,-20:DRAW 0, -20:DRAN 0,0:LOC 
ATE 18,17:LINE INPUT;piel*:IF LENIp 
iel»>>25 THEN LOCATE 1,18:PRINT CHR 
*(1B):G0TD 1030 

1040 IF piel*="" THEN 1050 ELBE pie >HZ 
*(n)=pie*(n)+" - "+piel t:pielt=" " 
1050 LOCATE 18, 17:PRINT SPACE* ( 1 ) : L GG 
OCATE 2,19:PRINT"ACCESS0IRES :";C 
HR*(1B):0RIGIN 124, U4:DRMI 440,0:0 
RAW 440,-20:DRAW 0,-20:DRAW 0,0:LOC 
ATE 18,19:LINE INPUT;ace*!n):IF LEN 
lace*(n))>SO THEN LOCATE 1,20:PRINT 

CHR$!18):G0T0 1050 
1060 LDCATE 1B,19:FRINT SPACEf(!!:L 
OCATE 2,21:PRINT"GARAGE : ";C 
HR*(18):0RIGIN 124,82:DRAW 240,0:DR 
AN 240,-20:DRAW 0,-20:DRAW 0,0:L0CA 
TE 18,21:LINE INPUT;gar«in):IF LEN( 
gar»(n))>25 THEN LOCATE 1,22:PRINT 
CHR«!18):G0T0 1040 
1070 LOCATE 1B,21:PRINT SPACE«(1):L 
OCATE 2,23:PRINT"DEPENSES : ":C 
HR«(18):0RIGIN 124,50:DRAW 96,0:DRA 
H 96,-20:DRAW 0,-20:DRAW 0,0:LOCATE 

18,23: INPUT dep(n) 
1080 LOCATE 18,23:PRINT SPACE*U) 
1090 PRINT CHR* (7);: LOCATE 33,25:PR >FT 
INT'UNE TOUCHE S.V.P.":CALL Î<BB06:G 
OTO 130 

1100 LOCATE 15,10:PRINT"VEUILLEZ IN >LB 
DIQUER LES DETAILS DE L'ENTRETIEN": 
RETURN 

1110 LOCATE 15,10:PRINT"VEUILLEZ IN >KF 
DIQUER LE DETAIL DES REPARATIONS" :R / 
ETURN 

1120 LOCATE 15,10:PRINT"VEUILLEZ IN >VK 
DIQUER LE DETAIL DES AUTRES OPERATI 
ONS": RETURN 

1130 ' 

1140 'RECHERCHE 
1150 

1160 CLS 

1170 WINDOWtl,l,80,7,23:PAPER#l,l:P >JB 
EN#1,0 

1180 WIND0W#2, 1 , SO, 25, 25 : PAPER42, 0: >TJ 
PEN#2,1:CLS*2 / 

1190 ORIGIN 124,390:DRAW 384,0:DRAW >TE 
3B4,-28:DRAW 0,-28:DRAW 0,0:ORIBIN 
128,386:DRAW 376,0:DRAW 376,-20:DR 
AN 0,-20:DRAN 0,0:LOCATE 1B,2:PRINT 
"«MENU DES RECHER 
C H E S **" 

1200 IF n<=0 THEN 4030 >NE 

1210 IF «<>"■ THEN le=INTILEN(*»/ >NUÉ 



>AE 




2! ELSE le=0 

1220 IF «<>•" THEN LOCATE 24-le,5: 
PRINT CHR* (24);" » * « FICHE TECHN 
IOUE ";UPPER*(f*!;" » * » ";CHR«(2 
4) 

1230 ORIGIN 160,302:DRAW 312,0:DRAW 
312,-240:DRAW 0,-240:DRAW 0,0:DF:IG 
IN 156.304:DRAW 320,0:DRAW 320,-248 
:DRAW 0,-248: DRAW 0,0 
1240 LOCATE 25,B:PRINT"1 .Recherche 
par Date":LOCATE 25,10:PRINT"2 ,Re 
cherche par Nature":LOCATE 25, 12:PR 
INT"3 .Recherche par Piece":LOCATE 
25,14:PRINT"4 .Recherche par Access 
oire":LOCATE 25,16:PRINT"5 .Recherc 
he par Garage" 

1250 LOCATE 25,1B:PRINT"6 .Recherch 
e d'une Depense":LOCATE 25,20:PRINT 
"7 .Retour Menu Principal" 
1260 PRINT CHR*I7); 
1270 a*=INKEY*:IF a*="" THEN 1270 
1290 IF a*="l" THEN 1360 

THEN 1660 

THEN 1860 

THEN 2060 

THEN 2250 

THEN 2440 

THEN 130 



Ir "|kil(r)|" K«5":GG 

>ZV Tl480 ORIGIN 72,33B:D 

t 144,-22:DRAW 0,-22:D 



1290 IF a*="2" 

1300 IF a*="3" 

1310 IF a*="4" 

1320 IF a*="5" 

1330 IF a*="6" 

1340 IF a«="7" 

1350 GOTO 1270 

1360 ' 

1370 'Date 

1380 CLS 

1390 LOCATE 19,I:PRINT CHR*<24);" R 

ECHERCHE D'UNE D 
ATE "îCHR*(24) 

1400 LXATE 2,5:F'RINT"8uelle Date V 
oule:-vous consulter : ";CHR*(18);: 
INPUT re* 

1410 IF LEN!re*)>8 OR' MID*(re*,3.1> 
')■"." OR MID*(re*,6.1)<>"." OR vAL( 
MID*!re«, 4, 2)1)12 THEN LOCATE 31,7: 
PRINT"Entrez JJ.MW.AA":FDR t=l TO 

15O0:NEXT:L0CATE 31,7:PRINT SPACE* 
(18):G0T0 1400 

1420 LOCATE 1,5:PRINT CHR* (20) 
1430 FOR s=l TO n:IF dat*(s)=re* TH 
EN r=5:s=n:re*="" 
1440 NEXT 

1450 IF r=0 THEN LOCATE 22,10:PRINT 
"LA DATE DEMANDEE N'EST PAS FICHEE" 
:F0R t=l TO 2000:NEXT:GOTO 1130 
1460 GOSUB 1470: GOTO 1630 
1470 CLSHiUBATE 2,5:PRINT"Les ren 
seigneaents recherches se trouvent 
dans la Fiche No ";r:LXATE»l,6,2:P 
RINT#1 , "Date de l'intervention ";da 
t*(r);" "l'Indication compteu 



:GOTO 1510 

ItDRAH 144,0:DRAW >VN 

:DRAN 0,0:ORIGIN ' 
352,338:DRAW 200,0: DRAM 200,-22:DRA 
H 0,-22: DRAW 0,0 

1490 CLS*1:L0CATE ll,5:PRINT"Flche >YC 
No ";CHR*(24);" •;,■;• ";CHR*(24):L0 / 
CATE 46,5:PRINT"0peratlon ";CHR*(24 
):LXATE 57,5:PRINT SPACE* ! 1 i : 60SU 
B 2650:L0CATE 57,5:PRINT" ";chl*;" 
";CHR*(24>:chl*="" 

1500 L0CATE#l,6,2:PRINT»l,"Date de >UA 
l'intervention ";dat*(r);" "; 
"Indication compteur ";kil(r);" Kms 

1510 PRINT#!,STRING*!B0,154);:PRINT >PP 

#1," Nature de l'intervention : ";n 

at*lri 

1520 IF pie*(r)="" THEN 1550 >UD 

1530 IF L£Ntpie*(r))>50 THEN na*=MI >FH 

D*!pie*!ri,l,50)t"-":nal*=HID«(pie* 

(r),51,25) ELSE nat=pie*(r) 

1540 PRINTM.STRING* (80, 144);: PRINT HA 

Kl," Pièces Changées : ";n 

a*:IF nal*C"" THEN PRINT»1,TAB(29) 

;nal* 

1550 IF ace*(r)="" THEN 1570 

1560 PRINT#1,STRING*!79,144>:PRINT* 

1," Accessoires, Ingrédients : ";ac 

e*(r) 

1570 IF gar*(r)="" THEN 1590 

1580 PRINTtl ,STRING* (80, 144) ; : PRINT 

#1," Garage : ";g 

ar«(r) 

1590 PRINTtl, STRING* (80, 144);: PRINT >¥U 



>UL 

m 



>UJ 
>BU 



";U 



#1," Montant des Dépenses 

SING i*;deplr) 

1600 PRINT»1,STRING*I80,154); 

1610 r=0:na*="":nal*="" 

1620 RETURN 

1630 re«="":CLS*2:PRINT CHR*(7);:L0 : 

CATE#2,2B,1:PRINT»2,"UNE AUTRE RECH 

ERCHE (O/NP 

1640 a*=INKEY«:IF a*=" THEN 1640 

1650 IF a*="0" OR a*="o" THEN 1130 

ELSE 130 

1660 CLS 

1670 LOCATE 19,1:PRINT CHR*(24);" R >PG 

ECHERCHE PAR NAT 
U R E u jCHR*(24) 
16B0 LXATE 2,5:PRINT"Quelle est la >GY 

Nature de l'intervention a consult 
er : ";CHR*(18);:INPUT re*:IF LEN(r 
e»)>25 THEN GOSUB 4040: LOCATE 1,6:P 
RINT CHR*(20):G0T0 1680 
1690 LOCATE 2,B;PRINT"A partir de q >PT 
luelle No de Fiche ";CHR*(1B);:INPUT 



>YD 
>QX 
>FC 
■PB 



>ZH 
>FE 



>AC 



24 









t?SX-^M 
















n+:IF nOn THEN LXflTE 2,9:PRINT"V 


1 1980 NEXT s 






>xd 


ous n'avez 9iie";n; "fiches en memoir 




1990 GOTO 1790 


>PD 


e":G0T0 1690 




2000 GOSUB 1470 


« 


1700 LOCflTE 1,5:PRINT CHR»(20> 


>YD 


2010 PRINT CHR*(7);:LXATEI2,18,1:P 


>DT 


1710 LOCflTE 2B,10:PRINT"UN INSTANT 


>TX 


RINT#2, "Voulez-vous continuer la re 




JE CHERCHE" 




cherche O/N" 




1720 re*=UPPER*(re«):FOR s=nf TO n: 


m 


2020 a$=INKEï«:IF a$="" THEN 2020 


>YB 


nat«(s)=UPPER»(nat«(s)):NEXT 




2030 IF a*="0" OR at="o" THEN CLSttl 


RA 


1730 lo=LEN(re») ^^ 


>LV 


:CLS#2:S0T0 1980 




1740 FOR smf TO n .fgâ 


>LC 


2040 IF a«="N" OR a*=V THEN s=n:G 


•)HT 


1750 lol=LEN(nat*<s>) Z?* 


■OE 


OTO 1980 




1760 FOR d=l TO loliOl»=MlD$(nat«(5 


>LE 


2050 GOTO 2020 


ÏLJ 


),d,lo):IF ol«=re* THEN r=s:sl=s:ou 




2060 CLSlLOCATE 14,1:PRINT CHR«(24i 


>LM 


i=I:G0T0 1800 




;" RECHERCHE D'UN 




1770 NEXT d 


>VF 


ACCESSOIRE ";CHR*(241 




1780 NEXT s 


a 


2070 LOCATE 2,5:PRINT"0uel Accesoir 


BL 


1790 re*="":nf=0:IF oui=0 THEN LOCfl 


>AK 


e recherchez-vous ";CHR«(18I;:INPUT 


f 


TE 24,10:PRINT"La recherche n'a pas 




re$: IF LEN(re$)>25 THEN GOSUB 4040 




aboutie !!!":G0T0 1630 ELSE oui=û: 




:LOCATE 1,6:PRINT CHR«(20):G0T0 207 




CLS#1:L0CATE 26,10:PRINT"Là recherc 









he est terninee M !":B0T0 1630 




2080 LOCATE 2.6iPRINT"A partir de q 


>Pfl 


1800 GOSUB 1470 


>XD 


uelle No de Fiche ";CHR»11B);:INFUT 


/ 


1B10 PRINT CHR*(7);:L0CATE#2,16,1:P >DY 


nf:IF nf>n THEN LOCATE 2,7:PRINT"V 




RINT#2, "Voulez-vous continuer la re 




ous n'avez que" ;n; "fiches en nemoir 




cherche 0/N" 




e":G0T0 2080 




1820 a«=INKEY*:IF a$="" THEN 1820 


>ZH 


2090 LOCflTE 1,5:PRINT CHRX20) 


>YG 


1830 IF a«="0" OR a$=V THEN CLS#1 


>RF 


2100 LXATE 28.10:PRINT"UN INSTANT 


■TO 


:CLS#2:G0T0 1780 




JE CHERCHE" 




1840 IF a»="N" OR a*="n" THEN s=n:G 


>HY 


2110 re*=UPPER«(re$):FOR s=nf TO n: 


MA 


0T0 1780 




ace«(5)=UPPER$(ace$(s)):NEXT 




1850 GOTO 1820 


>NC 


2120 lo=LEN(re*> 


>LN 


1860 CLS 


AE 


2130 FOR s=nf TO n 


>LH 


1870 CLS:L0CATE 19, l:PRiNT CHR*(24i 


>YQ 


2140 lol=LEN(ace*(s)l 


m 


;" RECHERCHE D'UNE 




2150 FOR d=l TO lol:ol»=HID»(ace$(s 


DL 


PIECE ";CHR*(24I 




),d,lollIF ol*=re« THEN r=s:oui=l:G 




1880 LOCflTE 2,5:PRINT"Quelle Pièce 


,AB 


OTO 2190 s^î^ 




recherchez-vous : ";CHR*(1B) ; : INPUT 




2160 NEXT d /***=" 


Ul 


re«:IF LEN(re«)>25 THEN BOSUB «40 




2170 NEXT s î^&ËÈ 


•HF 


:L0CATE 1,6:PRINT CHR$(20):G0T0 188 




2180 GOTO 1790 j^^T 


NF 







2190 60SUB 1470 &*"^ 


>XG 


1890 LOCflTE 2,7:PRINT"A partir de q 


>PV 


2200 PRINT CHR*(7);:LXATE»2,18,I:P 


DU 


uelle No de Fiche ";CHR»I18I;:INPUT 


RINTI2, "Voulez-vous continuer la re 




nf:IF nOn THEN LOCflTE 2,8:PRINT"V 




cherche 0/N" 




ous n'avez que";n; "fiches en memoir 




2210 a»=INKEY$:IF a«=" - THEN 2210 


.YD 


e":G0T0 1890 




2220 !F a«="0" OR a«="o" THEN CLS#1 


>RT 


1900 LOCflTE 1,5:PRINT CHFHI20) 


>YF 


:CLS#2:60T0 2170 




1910 LOCflTE 28,10:PRINT - UN INSTANT 


>T2 


2230 IF at="N" OR a«="n" THEN s=n:G >HK 


JE CHERCHE" 




OTO 2170 




1920 re*=UPPER$(re*):FOR 5=nf TO n: 


•■ME 


2240 GOTO 2210 


>m 


pie$(s)=UPPER«(pie«(s)l:NEXT 




2250 CLSiLOCATE 18,1:PRINT CHR»(24) 


;VY 


1930 lo=LENlre*> 


►U 


;" RECHERCHE PAR E 




1940 FOR s=nf TO n 


>LE 


A R A 6 E ";CHR$(241 




1950 lol=LEN(pie*(5)) 


>0B 


2260 LXATE 2,5:PRINT"Quel Garage r 


•UN 


1960 FOR d=l TO lDl:ol«=MM(pie*(s 


:>dg 


echerchez-vous ";CHR$(18);:INPUT re 


/ 


),d,lo):IF ol*=re» THEN r=s:oui=l:G 


«:1F LEN(re«)>25 THEN GOSUB 4O4O:L0 




0T0 2000 




CflTE 1,6:PRINT CHR«(20):B0T0 2260 




1970 NEXT d 


>VH 1 


1 2270 LXflTE 2,6:PRINT"fl partir de g 


;PC 



uelle No de Fiche "jCHR*.'18i ;: INPUT 
nf:IF nf>n THEN LOCATE 2,7:PRINT"V 

ous n avez que";n; "fiches en memoir 

e":G0T0 2270 

22B0 LOCATE 1,5;PRINT CHR*(20) 

2290 LOCflTE 28,10:PRINT"UN INSTANT 

JE CHERCHE " 

2300 re«=UPPER$(re*):FOR s=nf TO n: 

gar$(s)=UPPER»!9ar*(s)iiNEXT 

2310 lo=LEN(re»i 

2320 FOR s=nf TO n 

2330 lol=LEN(gar«(s)> 

2340 FOR d=l TO lol:ol«=MD*!gar«!s 

),d,lo):IF ol«=re« THEN r=s:oul=l:G 

OTO 2380 

2350 NEXT d 

2360 NEXT s 

2370 GOTO 1790 

2380 GOSUB 1470 

2390 PRINT CHR«(7);:LXATE»2,IB,1:P 

RINT#2, "Voulez-vous continuer la re 

cherche 0/N" 

2400 a«=INKEY*:IF a$="" THEN 2400 

2410 IF a*="0" OR a«="o" THEN CLSK1 

:CLS#2:G0T0 2360 

2420 IF a*="N" OR a«="n" THEN CL5J1 

:s=n:GOTO 2360 

2430 GOTO 2400 

2440 CLS:LXATE 15,1:PRINT CHR*!24i 

;"RECHERCHE D'UNE 
DEPENSE ";CHR«(24) 

2450 LOCATE 2,5: INPUT'Quel Montant 

recherchez-vous ";re 

2460 LOCflTE 1,5:PRINT CHR*(20I 

2470 FOR s=l TO n:IF dep(s)=re THEN 
r=s:GOTO 2500 

2480 NEXT s 

2490 re=0:LXATE 26, 10:PRlNT"La Rec 

herche est terminée "'":GOTO 1630 

2500 GOSUB 1470 

2510 PRINT CHR$(7);:L0CATE#2,18,1:P 

RINT#2, "Voulez-vous continuer la re 

cherche 0/N" 

2520 a*=INKEY«:IF a*="" THEN 2520 

2530 IF a»="0" OR a«="o" THEN CLS#1 

:CLS#2:G0T0 2480 

2540 IF a*="N" OR a«='V THEN CLSH1 

:s=n:GOTO 2480 

2550 GOTO 2520 

2560 ' 

2570 'TOTAL DEPENSES 

2580 ' 



-LP 
>LX 

>0P 
>DG 

r 

>Vfl 
>HG 

>NG 
>XH 
'DE 



>YF 
>RV 

PCy 

>NC 
>EE 



:d 

>RB 



QE 



2590 CLS 

2600 IF n=0 THEN 4030 

2610 LOCflTE 30,10:PFtINT"UN INSTANT 

JE CALCULE " 

2620 tdep=0:FOR s=l TO n:tdep=tdept 
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depIshNEXT 

2630 LOCATE 10, 10:PRINT"flu "|dat$(n 

';" Le total de vos Dépenses s elev 
e a ";USING"######,.#* F";tdep+«I 
2640 FOR t=l TO 3000:NEXT:B0TQ 130 >BE 
2650 IF ch*!r)="E" THEN chl*="ENTRE :>TA 
TIEN" ELSE IF ch«(r)="R" THEN chl*= ' 
"REPARATION" ELSE IF ch$(r)="D" THE 
N chl$="DlVERS" 
2660 RETURN >FH 

2670 ' >ÏH 

2680 'CONSULTATION DES FICHES >ÏJ 

2690 ' >YK 

2700 CLS >ZJ 

2710 ORIGIN 84, 390: DRAW 452.0:DRAN iJG 
452,-28:DRAW 0,-ZBsORAH û.O:DRIGIN 
88, 386; DRAW 444,0: DRAW 444, -20: DRAW 

0,-20:DRAW 0,0:LOCATE 13,2:PRINT"* 
•CONSULTATION DES 

FICHES *»" 
2720 IF n<=0 THEN 4030 >FE 

2730 WIND0W#1,1,80,7,23:PAFERII1,1:P >JE 
EN#1,0 

2740 WINDOW#2,l,B0,25,25:PAPERt2,O: >TM 
PEN#2,1:CLS»2 

2750 LOCATE 2,7:PRINT"V0US AVEZ UN >XF 
TOTAL DE ";n;" FICHES EN MEMOIRE" 
2760 LOCATE 2,10:PRINT"A partir de >YJ 
quelle Fiche consulter ":CHR«(1B)!: f 
INPUT fie: IF fic>n THEN 2760 
2770 FOR ««fie TO n:r=s >RB 
2780 GOSUB 1480 >YC 

2790 PRINT CHR*(7);:L0CATEt2,32,l:P >LD 
RINT#2,"[S]uite [Flin - 
2800 a«=INKEY«;IF »*=" THEN 2800 >ZF 
2B10 IF a»="S" OR a$="s" THEN CLSI1 >TC 
:CLS*2:BOT0 2840 

2820 IF a*="F" OR a*="f" THEN s=n;G >HC 
OTO 2840 

2830 GOTO 2800 :>NA 

2840 NEXT >LF 

2850 CLS#2:PRINT CHR*(7);:L0CATE#2, >XC 
20,1:PRINT»2, "FIN DE LISTE 
UNE TOUCHE S.V.P" 
2860 CALL 4BB06:60T0 130 >RB 

2870 ' 

2880 'DERNIERE INTER. 
2890 ' 



>YK 

ZA 

>ZB 

>AA 

,9,23:PAPER»1,1:P >JG 



2900 CLS 

2910 MINDOWtl,l 

ENI1.0 

2920 ORIGIN 112,390:DRAW 412,0:DRAW 
412,-28:DRAW 0,-28:DRAW 0,0:ORIG1N 
116,386:DRAW 404,0:DRAW 404,-20:DR 

AW 0,-20:DRAW O,0;LXATE 17,2:PRINT 

"«DERNIERE INTERV 

E N T I N »" 



■2930 IF n<=0 THEN 4030 

[2940 LOCATE 2,6:PRINT"ATTENTI0N LA 
RECHERCHE NE S'EFFECTUE QUE SUR LA 
NATURE DE L'INTERVENTION":LXATE 2, 
7:PRINT"0U SUR LES PIECES CHANGEES" 

2950 LOCATE 2,9:PRINT"Sur quelle in 

tervention desirez-vous être înform 

e ";CHR$(1S);:INPUT re$:IF LENire*! 

>25 THEN LOCATE 21,12:PRINT CHR«!24 

);" LIGNE TROP LONGUE «a::. 25 carac 

teres ";CHR«(24):F0R t=l TO 1500:NE 

XT:LXATE l.lOsPRINT CHM (201: GOTO 

2950 

2960 IF re$»" THEN 130 

2970 LOCATE 2,11: INPUT"Veuillez ind 

iquer le kilométrage actuel ";kac 

2980 LOCATE 1,6:PRINT CHR«!20):L0CA 

TE 20,11:PRINT"UN INSTANT JE CHERCH 

E DANS FICHE No " 

2990 re«=UPPER«(re«> 

3000 lo=LEN!re») 

3010 FOR s=n TO 1 STEP -1 

3020 long*=UPPER*(nat$(s))HJPPER«(p 

iet(s)) 

3030 lol=LEN(long») 

3040 FOR d=l TO lol:ol$=MID»(long«, 

d,lo):LXATE 56,11:PRINT CHR«(24);s 

;CHR*l24):IF ol»=re» THEN r=s:trouv 

e=l:GOTO 3070 

3050 NEXT d 

3060 NEXT s: IF trouve=0 THEN LOCATE 

l.lliPRlNT CHR$( 20): LOCATE 25-ILEN 
(re«)/2),ll:PRINT CHR$!24);" RECHER 
CHE [";ret;"] NON ABOUTIE !!! ";CHR 
$i24i:GOTO 3100 

3070 LOCATE 1,5:PRINT CHR'*(20) :LOCA 
TE 2,5:PRINT"La dernière intervenu 
on concernant : ";CHR*(24);" ";re«; 
■ ";CHR*(24):LXATE 2,6:PRINT"date 
du "|CHR»(24);" ";dat$(r);" ";CHR«( 
24);" et se trouve dans le Fiche No 

"i" ";CHR*(24);r;" ";CHR»(24) 
3080 dif=kac-kll(r):LOCATE 2,B:PRIN 
T"Vous ave: effectue ";dif;" kilome 
très depuis cette date":dif=0 
3090 IF trouve=l THEN trouve=0:CLS» 
hGOSUB 1510 
3100 re«="":kac=0:long»="":PRINT CH 
R»(7)|iL0CATE 32,25:PRINT"UNE TOUCH 
E S.V.P - : CALL TO06:G0T0 130 

3110 ' 

3120 'CONSULTATION PAR OPERATION 

3130 ' 

3140 CLS 

3150 ORIGIN 132,390:DRAW 368,0:DRAW 

368,-28:DRAW 0,-28:DRAW 0,0:ORIGIN 



>PH| 

>FH T 



136,386:DRAW 360,0:DRAW 360,-20:DR 
AW 0,-20:DRAW 0,0:LOCATE 19,2:PRINT 
"»* CONSULTATION DES FICHES PAR OPE 
RATION *»" 

3160 IF n<=0 THEN 4030 
3170 WIND0W#1,1,B0,7,23:PAPER#1.1:P 
EN#1,0 

3180 WIND0W#2,l,80,25,25:PAPER#2,û: 
PENH2, 1 

3190 LXATE 2,6:PRINT"0uelles Opéra 
tions voulez-vous consulter ":LOCAT 
E 44,5:PRINT"tE]ntretien":L0CATE 44 
,6:PRINT"[Rleparation":LXATE 44,7: 
PRTNT"[D)ivers" 
3200 LOCATE 20,!0:PR!NT"Votre choix 

";CHR«(18>;: INPUT cho«:cho»=UPPER* 
(cho$):IF cho$="E" OR cho$="R" OR c 
ho«="D" THEN 3210 ELSE 3200 
3210 LOCATE 1,5:PRINT CHfi$!20) 
3220 FOR s=l TO n:IF ch«(s)=cho» TH 
EN r=s:GOSUB 1480: GOSUB 3250 
3230 NEXT 

3240 CLS*2:cho*="":r=0:PRINT CHR$(7 
)i:L0CATE#2,24,l:PRINT#2,"FIN DE LI , 
STE - UNE TOUCHE S.V.P":CALL !iBB06: 
6OT0 130 

3250 PRINT CHR*(7);:L0CATE#2,29,1:P >NM 
RINT#2,"CS)uite [FJin" 
3260 a»=INKEY»:IF a*="" THEN 3260 >ZH 
3270 IF a«="F" OR a«="f" THEN s=n:c >XN 
ho«=" n :r=0:SOTO 3300 
3280 IF a»="S" OR a$="s" THEN CLSI2 >KX 
:GOTO 3300 
3290 GOTO 3250 
3300 RETURN 

3310 ' 

3320 'GRAPHIQUE 

3330 ' 

3340 CLS 



>KK 
>QA 




3350 FOR s=l TO ll:c(s)=0:NEXT 

3360 ORIGIN 204,390:DRAW 208,0: DRAW 

208,-28:DRAW 0,-2B:DRAW 0,0:ORIGIN 

208,386:DRAW 200,0:Df«W 200,-20:DR 

'■LA AW 0,-20:DRAW 0,0:LOCATE 28,2:PRINT 

"»» GRAPHIQUE»»" 

3370 LXATE 12,6:PRINT"CETTE OPTION 
)RN | PERMET UN CONTROLE SOUS FORME DE G 

RAPHIQUE":LOCATE 14,7:PRINT"SUR LA 
>NA | REGULARITE D'UNE INTERVENTION DE VO 

TRE CHOIX" 

33B0 LXATE 2,ll:PRlNT"lntervention 
>XH concernée : ";CHR*(18); : INPUT re«: 
>XJ IF LEN(re$)>25 THEN GOSUB 4040:L0CA 
>XK TE 1,12:PRINT CHR1(20):G0T0 3380 
>ZH 3390 IF re»="" THEN 130 
>WF 3400 ok=0:CLS 
' 13410 LOCATE 29,11:PRINT"UN INSTANT 



■PZ 
>QC 
>VY 
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,15 



JE RECHERCHE" 

3420 LOCATE 1,2:PRINT STRING$ 
4); 

3430 re$=UPPER«(re*> 
3440 lo=LEN(re») 
3450 FOR s=n TO 1 STEP -1 
3440 long$=UPPER$(IMt*U))*UPPER$(f 
irt(s)) 

3470 lol=LEN(long«) 
3480 FOR d=l TO loi: ol*=«ID*( long*. 
d,lo):IF ok=ll THEN s=l:d=lol:G0T0 
3490 ELSE IF ol$=re$ THEN ok=ok+l:d 
=lol:G0SUB 3640 
3490 NEXT d:NEXT 5 
3500 LOCATE 29,11:PRINT 5F'ACE»!40i 
3510 GOSUB 3610 

3520 dra=0:ORIGIN 40,24:F0R 5=1 TO 
ll:tF cfs>=0 THEN 3560 ELSE dra=INT 
((kil(c(5)))-kil(c(5-l)))/650 
3530 IF dra<0 THEN 5=11:6010 3560 
3540 DRAWR 56,dra:DRAWR 0,10:DRAWR 
0,-10: LOCATE ( XPOS/B) +2, 25- (YPOS; 16 
)-3:PRINT kil(c(s)):LXATE IXPOS/8) 
+3,25-(YP0S/16)-4:PRINT"F";c!5) 
3550 dd=c(s! 
3560 NEXT 

3570 IF dd=0 THEN 3590 
3580 LOCATE 17-(LEN(re$)/2) ,1:PRINT 
"Dernière Int. ";reï;" en date du " 
;dat*(dd);", Fiche No";dd:dd=0 
3590 IF ok=0 THEN LOCATE 30,11:PRIN 
T"AUCUNE DONNEE ! ! ! " 
3600 ok=0:CALL iBB06:G0T0 130 
3610 ORIGIN 36,24:DRAW 564,0:0R1GIN 
40,20:DRAW 0,310:FOR x=96 TO 600 5 
TEP 56:0RIGIN x,20;DRAW 0,4:NEXT 
3620 53=0:F0R 5=12 TO 75 STEP 7:s3= 
s3+l: LOCATE 5,25:PRINT 53;:NEXT 
3630 RETURN 

3640 FOR 52=1 TO 11: IF ok=ll-s2 THE 
N c(s2)=s 
3650 NEXT:RETURN 

3660 ■ /-%^ 

3670 'CARBURANT _— — ^?*4 
3680 ' 

3690 as 

3700 ORIGIN 204,390:DRAW 208,0:DRAW 
208,-28:DRAW 0,-2B:DRAW 0,0:0RI6IN 
208, 386: DRAW 200,0: DRAW 200, -20: DR 
AU 0,-20:DRAW 0,0:LOCATE 28,2:PR!NT 
■«CARBURANT»*" 
3710 LOCATE 2,4:PRINT"Le dernier en 
registrement date du ";dt*:LXATE 2 
,5:PRINT"Vous avez acheté un total 
de"; lit; "litre pour un montant tota 
1 de";USING il*|il 
3720 LOCATE 2,10:PRINT"NOUVEL ENREG 





jA 








fëïX^&Z 














1 


ISTREMENT": LOCATE 2, IhPRINT" 


| 


>FV 








3730 LOCATE 2,13:INPUT"Date 


>JB 


>PK 


: ";dt»:IF dt*="" THEN 3730 




>LV 


3740 LOCATE 2,14:INPUT"Litres 


CM 


>RX 


: ";U:lit=lit+h 




>MZ 


3750 LOCATE 2, 15:INPUT"Prix paye 
: ";mll:ml=mi+mll 


DV 


>PA 


3760 LOCATE 2,16:PRlNT"Total Compte 


>NP 


m 


ur : ";CHR*(1B);:INPUT tocl: IF tocl 
<»toc THEN 3760 






3770 LOCATE 1,4:PRINT CHR«(18) :L0Cfi 


BF / 




TE 1,5:PRINT CHR$(18) 


>ht 


3780 IF tocl <5000 THEN 3810 


>ux 


>BL 


3790 LOCATE 2,19:PRINT"V0TRE CONSOK 


>UD 


>XB 


NATION MOYENNE EST DE ";CHR*(24);R0 




>JJ 


UND((lit/(tocl+300))«100,2); "Litres 
aux 100 ";CHR*(24) 






3800 ci»l=R0UND((ml/lit),2):L0CATE 2 


>AX 


:>zj 


,21:PRINT"vous avez acheté un total 


t 


>KU 


de"; lit; " 1 itres pour un montant to 
tal de";ml;"Frs":LXATE 2,22:PRINT" 
soit une moyenne de";cmI;"Frs le li 
tre" 




>BG 


3810 toc=tocl 


>UA 


>LF 


3820 li=0:»ll=0:PRINT CHR$(7);:LXA 


>X0 


>PT 


TE 32,25:PRINT"UNE TOUCHE S.V.P.":C 




> Z V 


ALL !<BBO6:GOT0 130 










>Y6 




jtj^u ?5S^ 




3B40 'INFORMATIONS ±?Ç™Çj 


>YH 


>AA 






>YJ 




:<cjl' - M# 




3860 CL5 '^W* 


xe 




m I 



3870 IF n=0 OR toc=0 THEN 4030 
3B80 tdep=0:FOR 5=1 TO n:tdep=tdep+ 
dep (s) :NEXT: tadep=tdep-dep ( li 
3890 ORIGIN 116,390:DRAW 408,0:DRAW 
40B,-28:DRAW 0,-2B:DRAW 0,0:0RIGIN 
120,386:DRAW 400,0:DRAW 400, -20: DR 
AU 0,-20:DRAW 0,0;L0CATE 17,2:PRINT 
"«INFORMATIONS DI 
V E R S E S «" 

3900 LOCATE 17,4:PRINT"PRIX DE REVI 
ENT AU KILOMETRE EN DATE DU "jdt*;: 
LOCATE 3,6:PRINT"T0TAL KILOMETRAGE 
:";toc;:PRINT" PRI 

X D'ACHAT :";USING i*;dep(l) 
3910 ORIGIN 11,298;DRAH 610,0:DRAU 
610,-116:DRAW 0,-116:DRAW 0,0 
3920 ORIGIN 12,296:DRAW 608,0:DRAW 
608,-112:DRAN 0,-112:DRAW 0,0:0RIGI 
N 12,248:DRAW 60B,O:ORI6IN 12,272:D 
RAW 520,0:ORI6IN 116,272:DRAW 0,-88 
:ORIGIN 460,272:DRAW 0,-88 
3930 ORIGIN 1B0,296:DRAH 0,-112:0Rl 
GIN 181,296:DRAW 0,-112:ORIGIN 284, 
272:DRAW 0,-88:ORIGIN 356,296:DRAW 
0,-112:ORIGIN 357,296:DRAW 0,-112:0 



CR, 



RIGIN 532, 296: DRAW 0,-1 12: ORIGIN 53 
3,296:DRAW 0,- - 112 

3940 ORIGIN 0,0:TAG:PL0T 24,290:PRI 
NT"! ESSENCE";: PLOT 188,290:PR! 
NT"2 AUTRES DEPENSES";: PLOT 408,29 
0:PRINT"TOTAL 1+2";:PLQT 36,266:PRI 
NT"MONTANT";:PL0T 128,266:PRINT"Pr/ 
K»";:PL0T 204,266:PRINT"MONTANT";:P 
LOT 300,266:PRINT"Pr/K«"; 
3950 PLOT 3B0,266:PRINT"M0KTANT";:P 
LOT 476,266:PRINT"Pr/Km";:PL0T 548, 
287:PRINT"PRIX/KM";:PL0T 537,269:PR 
INT'AVEC ACHAT"; :TAG0FF 
3960 LXATE 4,12:PRINT USING i!«;ml 
:LOCATE 17,12:PRINT USING"#«.t#";ml 
/toc:L0CATE 25,12:PRINT USING ll*;t 
adep:LOCATE 38,12:PRINT USING"##«.« 
*";tadep/toc:LXATE 47,12:PRINT USI 
NG ilf;tadept«l:LXATE 60,12:PRINT 
USING"M#.#*"i(tadeptml)/toc 
3970 LOCATE 71,12:PRINT USING"#tt.« 
l"j<W«p*tl)/toc 

3980 LOCATE 3, 15:FRINT"Consomn)ation 
moyenne : ";CHR*(24);R0UND(!lit/to 
c)«100,2);7100 ";CHR«(24) 
3990 LOCATE 32,25:PRINT"UNE TOUCHE 
S.V.P":PRINT CHR»(7);:CALL 4BB06:G0 
TO 130 

4000 LOCATE 6, ll:PRINT"Date de l'ac 
hat. [JJ.MH.AA] :";CHR»(1B);:INPUT d 
at*(n):!F LEN(dat«(n))>8 OR VALfMID 
»(dat*(nt,4,2));i2 OR VAL(MID$ldat* 
(n),4,2!Kl THEN 4000 
4010 LOCATE 6,13:INPUT"Kilometre 

:";kil(n):LOCATE 6,15:INPUT"Mar 
que et Type :";nati(n) :natt(n)="AC 
HAT "+nat*(n):LXATE 6,17:INPUT"Pri 
x d'achat :";dep(n):LXATE 6,19: 
INPUT"6arage :";gar«(n) 

4020 ch«ln)="D":RETURN 
4030 LXATE 31,11:PRINT"MAN0UE DE D 
0NNEE5":FDR t=l TO 2000: NEXT: GOTO 1 
30 

4040 SOUND 1,200,30, 15: LXATE 30,10 
:PRINT"25 CARACTERES MAXIMUM":FOR a 
=1 TO 2000;NEXT:RETURN 
4050 CLS:IF ERL=710 THEN LOCATE 28, 
11:PRINT"FICHE NON TROUVEE":F»="":F 
OR 5=1 TO 1500:NEXT:RESUME 650 
4060 IF ERR=11 THEN XSUB 4090:RESU 
ME 130 

4070 PRINT "ERREUR No";ERR; 'Ligne'; 
ERL 

4080 ON ERROR GOTO 0:END 
4090 CLS:LXATE 23,10:PRINT"JE N'AI 
ME PAS DIVISER PAR 0':F0R T=l TO 20 
00:NEXT:RETURN» 



DF 
S 



>HD 

KO 



>TX 
>T2 
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u 



CHIMIE 



UmA 




Ce programme n'est pas une initiation 
à la chimie ; il sera utilisé par les 
pratiquants pour suppléer à votre mémoire 
défaillante. La table des éléments périodes 
et sa composition latine, les moles et le 
nombre d'Avogadro se rappelleront à votre 
souvenir. Bon courage tout de même... 



10 


*#*****##***+**♦ 


20 


Chlffit 


30 




40 


' - 21 Ko - 


50 


ici MUT 1967 


M 


REY St. 


70 


'*#****♦*#♦**#**+ 



B0 ON BREAK 60SUB 5400 

90 MODE 2:REST0RE 570:B0RDER 4:INK 0, 1 : INK 1.16:FfiPER 

:PEN 1 

100 HINDOU #1,5,26,8,20:PAPER #1,1:PEN I1,0iCLSM 

110 'HMtlHHHHHHHHHHHHHHHHI 

120 SYMBOL AFTER 175 

130 SYMBOL 175,15,15,40,60,240,240,240,240 

140 SYMBOL 176,240,240,60,60,0,0,0,0 

150 SYMBOL 177,240,240.60,60,15,15,0,0 



:LA 
>LB 
>LC 

LU 
>LE 
>LF 

LG 
,>QU 
>FF 

Qh 

>RC 

PI 
>NA 
>BH 
>DR • 



160 SYMBOL 178.0,0,60,60,240,240,0,0 BM 

170 SYMBOL 179,60,60,60,40,60,60,63,63 DO 

180 SYMBOL 180,60,60,60,60,60,60,252,252 >FF 

190 SYMBOL 181.60,60,60,60,60,60,0,0 >BX 

200 SYMBOL 182,63,63,3,3,3,3,3,3 >Y6 

210 SYMBOL 183,252,252,192,192,192,192,192.192 >H 

220 SYMBOL 184,3,3,3,3,63,63,0,0 >YE 

230 SYMBOL 185,192,192,192,192,252,252,0,0 >HX 

240 SYMBOL 186,240,240,252,252,255,255,255,255 >ME 

250 SYMBOL 187,60,60,252,252,252,252,252,252 >KH 

260 SYMBOL 188,243,243,240,240,240,240,0,0 >HC 

270 SYMBOL 189,255,255,60,60,60,60,63,63 >FD 

280 SYMBOL 190,252,252,12,12,192,192,192,192 >KL 

290 SYMBOL 191,60,60,60,60,255,255,0,0 >DF 

300 SYMBOL 192,192,192,12,12,252,252,0,0 >FU 

310 SYMBOL 245,0,0,4,6,6,6,6,6 >NB 

320 SYMBOL 246,0,0,6,24,48,32,64,64 >BR 

330 SYMBOL 247,7,5,5,109,136,144,96,0 >C6 

340 SYMBOL 248,64,64,64,192,192,128,128,0 >6H 
350 C«=CHR$(175)tCHR«(176)+CHR«(8)+CHR«(8i+CHR«(10)+CH >VF 
R*(1771+CHR»(178) 

360 HH«=CHR«(179)+CW$(1B0)+CHR$(8)+CHR$(B)+C*«(10)+CH >VE 
R»!181)+CHR$(181> 

370 II*=CHR»(lB2)+CHR«(lB31tCHR$(8l+CHR*(8)tCHR«(10)+CH >VW 
R*(184)*CHR$I185) 
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380 MM$=CHR$!186)+CHR*U87!»CHR«(8)+CHRS!B)»CHRt!10)+CH >VT 

R*tl88i+CHR*<iai) 

390 EES=CHR*(189)+CHR»a90)-CHR$iB>+CHR*(8)+CHR*(10)*CH « 

R*U91)t+CHRtil92> 

400 NN$=CHR*!245i+CHR$i246)+CHRt(8)+CHP»(8)<-CHR$(10^CH >VR 

P*(247 - n-CHR*(248i 

410 LOCATE 3i.3:PRINT CC*:LQCATE 34.3:PRINT HH$:LOCATE ;CB 

37,3:PRINT ÎIt:LOCATE 40.3:PRINT MM»:LOCATE 43,3:PRINT 

II*: LOCflTE 44,3:PRIMT EE* 

420 LOCflTE 1,1:PRINT STRING*(80,CHR:*(218I) >KQ 

430 LOCflTE 1.2:PRINT STRING*!80,CHP*!232I) >KN 

440 LOCflTE IjAlPRIMT STRIN6«iB0,CHM(216l) >KN 

450 LOCflTE 1,5:PRINT STRIN6*!80,CHR*(232)) >KU 

460 LOCflTE »1.7,4:F'RINT#1,"C H I « I E" "FM 

470 LOCflTE #1,7.5:PRINT#1," " >LP 

480 LOCfiTE #l,6,10:PRINT#l,"ic) AOUT 1987" >KK 

490 LOCflTE #1,6, 12:PRINT»1, "Stéphane REY" M 

500 LOCflTE #1,1,1:FÛR 1=1 TO 13:PRINT#l,CHR*i255):t€XT >YV 
510 LOCfiTE 27,8:PRINT CHR*(205) :LOCftTE 27.9:PRINT CHRII >EN 
209) 

520 0RI6IN 215,65:DRAW 0,200:ORI6IN 214,65sDRAH 0,200 >NJ 
530 LOCATE 5,21:PRINT CHRt(205):0RIGIN 38,65:DRAW 175,0 >EF 
:ORIGIN 40,63:DRflW 175,0 

540 ORIGIN 215,62:DRAW -12, 25: QRIS1N 2 1 5 , 64 : DRAW -12,25 Y». 
550 '**» MENU DESCENDANT *« >TA 

560 GOSUB 950 JE 

570 DATA "- INSTRUCTIONS","- Classification périodique ,UB 
des éléments","- Exercices sur les éléments" 
580 DATA "- Calculs (et formules) ","- QUITTER " >YH 
590 FOR 1=1 TO 5:R£AD X»iI):NEXT:H=l >DH 

600 PEN 1: LOCATE 1.24:PPINT CHR«(24);" Choi ; >NF 
■> SPACE Validation •> ENTER 

■';CHR*i24) 
610 FOR 1=1 TO 5: LOCATE 34,8+I*2:PRINT X«!I):NEXT >TA 
620 LOCATE 34,8+h*2:PR!NT CHR*(24);" ";X*(H> ;" ":CHR$<2 >AT 
4) 

630 R$="":UHILE R»="":R«=INKEY*:WEND >EZ 

640 GOSUB 1170 QA 

650 IF R»=CHR*(13) THEN 690 >UB 

660 V=H:H=H+1:IF H=6 THEN H=l >MB 

670 LOCATE 34,8+V«2:PRINT " ";X$(V);" " >FB 

680 GDTO 620 >ZJ 

690 ON H GOTO 710,2250,2770,4130,3080 >CR 

700 '**«« INSTRUCTIONS »»**** >RH 

710 CLS:H«="n INSTRUCTIONS »"|Y=3!H»S0:B0SUB 4110:605 >ZB 
UB 11 00: GOSUB 1000 

720 LOCATE 13,7:PRINT" Vous avez du «a! a assimiler le >BP 
s caractéristiques de" 

730 GOSUB 1150:L0CATE 13,8:PRINT"certains éléments chic >MP 
îques ? Vous souhaite: connaître" 

740 GOSUB 1150:LOCATE 13,9:PRINT"le nombre de moles con >RG 
tenues dans un corps ou même le" 

750 GOSUB 1 150: LDCfiTE 13,10:PRINT"voluae d'un gaz et d >KL 
autres encore ? Alors CHIMIE " 

760 GOSUB 1150:L0CATE 13,ll:PRINT"pourra peut être vous >UR 
aidez a résoudre ses problèmes." 
770 GOSUB 1150:LCCATE 13,13:PRINT" Regroupant 6 formul >PA 



es de calculs, ainsi que les 103" 

780 GOSUB UMsLOCATE 13,14:PRINT"«lenents de la classi >TV 
fication périodique ( et leurs " 

790 GOSUB 1150:L0CATE 13, !5:PRINT"caracteristiaues i, C >RR 
HIMIE vous aidera a résoudre des" 

800 GOSUB 1150:L0CflTE 13,16:PRINT"enerclces a i aide M 
des formules comprises dans le" 

B10 GOSUB 1150:L0CATE 13,17:FE!NT"proqra«me et a revise QF 
r ou même a apprendre ies ele-" 

820 GOSUB 1150:L0CATE 13, 18: c RINT"«ents chimiques grâce T: 
a de Petits exercices compris 1 ' 

830 GOSUB 1130:L0EATE 13, 19:PRINT"eu» aussi dans ce pro ffl 
qramme . " 

340 GOSUB 1!50:L0CATE 2!,21:PRINT" Encore BONNE CHANCE ;-FE 
et BON TRAVAIL !!!" 

850 LOCATE 1 , 24 : PR I NT CHR* ( 24 1 : " ; EG 

< < < < TAPER UNE TOUCHE > > > > 

":CHR»(24):CALL SBB06: RESTORE 570:G0SUB 1!70:GDTG 90 
860 '♦****« liste des éléments *****»« >TE 

870 WHILE INKEY*C"":WEND >VU 

880 RESTORE 1200 >LA 

B90 RESTORE 12WJ: CLS: MODE 1:F0R n=l TO 103: READ A*,6*,C >BT 
»,D*,E*iCL5:SOSUB 1100 
900 H$="» CHIMIE t":Y=3:M=40:G0SUB 411ù:G05UB 1050:LOCA >ZY 



TE 7,8:PRINT " Nom : "j A*: LOCATE 7. 10:PRINT " Svmbo 
le : ";B* 

910 LOCATE 7,12:PRINT" No atom. : ":«:L0CATE 7,14:PR >BM 
INT" Poids atom. : "j M: LOCATE ?,lt>:PRINT" Famille 
: ";E« 

920 LOCfiTE 1,23:PRINT CHR*(24);" COPY) => MENU <E >Yf 
SPACE) => SUITE ";CHR$(24):IF INKEY(9)G-1 THEN GOTO 2 
250 ELSE CALL 4BB18:NEXT 

930 RUN 2270 >YA 

940 '********* cadres «hhhhhhhk ,-TD 

950 ORIGIN 0,0:M0VE 237,78:DRAW 237,280:DRAM 610.280 >VA 

960 DRAW 610,78:DRAN 237,78 >UP 

970 MOVE 241,B2:DRAM 241 ,276: DRAW 606,276 -GG 

980 DRAW 606,82:DRftW 241,82 >UF 

990 RETURN >AD 

1000 ORIGIN 0,0:M0VE 65,52:DRflW 65,320:DRSW 558.320 >TH 

1010 DRAW 556,52:DRAW 65,52 >UQ 

1020 MOVE 69,56:DRAW 69,316:DRAW 554,316 ÎGE 

1030 DRAW 554,56:DRAW 69,56 >UB 

1040 RETURN >EJ 

1050 ORIGIN 0,0:HOVE 40, 135: DRAM 40,300:DRflM 610,300 >UG 

1060 DRflM 610, 135: DRAM 40,135 >MJ 

1070 MOVE 44,139:DRAM 44,296:DRAM 606,296 >6E 

1080 DRflM 606, 139:DRAH 44,139 >MZ 

1090 RETURN >FD 

1100 ORIGIN 0,OlMOVE 0,0:DRAM 0,398:DRflM 639,398 >QN 

1110 DRAW 639,0: DRAM 0,0 >RR 

1120 MOVE 4,4:DRAW 4,394:DRAM 635,394 >DK 

1130 DRAW 635,4:DRAW 4,4 >RC 

1140 RETURN >EK 

1150 '*+****#*********** >XK 

1160 FOR t=l TO 1000:NEXT:RETURN >AN 

1170 ' *********** son **#***#****#* >YB 
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1180 SOUND 1,180, 18, lOiSDUND 1, 250,16, 10:RETURN 

1190 '*»♦***«« DATAS »«****»*♦ 

1200 DATA ACTÎNIUM, Ac. B9, 227, ACTÎ N IBE3 

1210 DATA ALUMINIUM, Ai. 13,27, METAUX 

1220 DATA AMERIC!UM,Am,95.:43,ALTINIBE5 

1230 DATA ANTIM0INE,Sb,51,121.8,METAU)( 

1240 DATA ARGENT, Aq, 47, 107.9,METAU> 

1250 DATA AR60N,Ar,16,39.9,GAZ 

1260 DATA «SENIC,As,33.74.9, METALLOÏDES 

1270 DATA ASTATE.At, 85,210, METALLOÏDES 

1280 DATA AZOTE.N,', 14, METALLOÏDES 

1290 DATA BARIUM,Ba,56,137.3.METAUX 

1300 DATA BERI.ELIUM.Bk, 97,249, ACTINIDES 

1310 DATA BERYLLIUM,Be,4.9.hFIAUX 

1320 DATA BISMUTH, Bl, 93,209, METAUX 

1330 DATA B0RE,B,5,10.8,METALL0IDE5 

1340 DATA BR0ME,Br,35,79.9,METALL0IDES 

1350 DATA CAB(1IUM,Cd,4B,lI2.4,METAUX 

1360 DATA CAESIUM,Cs,55,13Z.9,METAU> 

1370 DATA CALCIUM. Ca, 20.40.1, METAUX 

13B0 DATA CALIFORNIUM, Ci. 98,251, ACTINiDES 

1390 DATA CARBONE, C. 6, 12, METALLOÏDES 

1400 DATA CERIUM.Ce, 58,140.1, LANTHANIDES 

1410 DATA CHLORE,Cl,17,35.5,METALL0IDES 

1420 DATA CHR0ME,Cr,24,52,METAU> 

1430 DATA C0BALT,Co,27,56.9, METAUX 

1440 DATA CUIVRE, Cu. 29,63. 5.METAUX 

1450 DATA CURIUM,C»,96,247,ACTINIDES 

1460 DATA DYSPROSIUM.Dy, 66,162. 5.LANTHANIDE3 

1470 DATA EINSTEINIUM.Es, 9 e , 254, ACTINiDES 

1480 DATA ERBIUM.Er, 63,167. 3.LANTHANIDE5 

1490 DATA ETAIN.Sn, 50,116.7, METAUX 

1500 DATA EUR0PIUM,Eu,63,152,LANTHAhIDE3 

1510 DATA FER, Fe, 26, 55.8, METAUX 

1520 DATA FERMIUM.F»,100,255.ACTINIDE5 

1530 DATA FLUOR.F, =,19, METALLOÏDES 

1540 DATA FRANCIUM.Fr, 87.223, METAUX 

1550 DATA GAD0LINIUM,6d,64,157.3,LANTHANIBE3 

1560 DATA GALLIUM,Sa.31.69.7,METAUX 

1570 DATA GERMANIUM,Ge,32,72.6,METAL:X 

1580 DATA HAFNIUM.HF. 72,178.5, METAUX 

1590 DATA HELIUN,He,2,4,SAZ 

1600 DATA H0LMIUM,Ho,67, 164.9,LANTHANIDES 

1610 DATA HYDROGENE, H. 1,1, GAZ 

1620 DATA INDIUM, In, 49,114. B.METAU» 

1630 DATA IODE, î ,53, 126. 9, METALLOÏDES 

1640 DATA IRIDIUM, Ir,77,192.2,MET«UX 

1650 DATA KRYPT0N,Kr, 36,83.8, BAZ 

1660 DATA LANTHANUM,La,57,138.9,LANTHANIDE3 

1670 DATA LAWREI€IUM,Lin, 103,257, ACTINIDES 

1680 DATA LITHIUM,Ll, 3,6.9, METAUX 

1690 DATA LUTETIUH,Lu,71,175,LANTHhNIDE5 

1700 DATA MAGNESIUM,Mq,12,24.3,METAUX 

1710 DATA MANGANESE,lm,25,54.9,METAUX 

1720 DATA MEND£LEVIUM,Md,101,256,ACTINIDE5 

1730 DATA MERCURE,Hg,BO,200.6,HETAUX 

1740 DATA MOLYBDENE, Mo, 42, 95. 9, METAUX 
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1750 DA T A NE00Yht,Nd,60,144.2,LANTHANlDES LA 

1760 DATA NEQN,Ne,10.20.2.SAZ ' >G 
!7~0 DATA NEFTUNIUM.Np, 93. :3 _ . ACTINIDES 

l 7 8i DATA NICKEL,Ni.28,58.7,METAUX lu 

1790 DATA NI0BIUM,Nb,41.92.9.METAUX U- 

1800 DATA N0BELIUM,Nci,lû2,253,ACTINIDES JZ 

1810 DATA 0R,Au,79,197,METAUX ! 

1820 DATA OSMIUM, Os, 76, 190.2. METAL; V 

1830 DATA DXïGENE,0,8. 16, METALLOÏDES 6F 

1840 DATA PALLADIUM, Fd,46,10o. 4, METAU) -HC 

1850 DATA PHOSPHORE. f, 15, 31. METALlOI['E5 Al 

1860 DATA PLATINE,0t,7B, 195. l.METAIJi ,Fâ 

1B70 DATA PLOMB, Fb, 82.207. 2, METAUX "F 

1880 DATA PLUTONIUM, Fli, 94,242, ACTINIDES Mi 

1890 DATA P0L0NIUM,Fo,B4, 209, METAUX fa 

1900 DATA POTASSIUM, K,!=, 39.1, METAUX :FD 

1910 DATA PRA3E0DYME,Fr,59,140.=, LANTHANIDES 3i 

1920 DATA PR0METHIUM,F«,6l, 145, LANTHANIDES * 

1930 DATA PR0TACTINIUM,Fi,91. 231. ACTINIDES NT 

1940 DATA RADIUM, Ra.88,226. 1, METAUX EF 

1950 DATA RADON.Rn, 86,222, GAZ ' r'D 

1960 DATA RHENIUM,Pe.75, 186.2. METAUX >FN 

1970 DATA RHODIUM, Rh, 45, 102. 9, METAUX FJ 

1980 DATA RUBIDIUM, Rb. 37, 35.5, METAUX FN 

1990 DATA RUTHENIUM, Pu, 44, 101.1. METAUX HM 

2000 DATA 5AMARIUM,S»,o2, 150.4, LANTHANIDES ME 

2010 DATA SCANDIUM,Sc,21, 45, METAUX DF 

2020 DATA SELENIUM, Se, 34, 79.METALL0IDE5 IF 

2030 DATA 5ILICIUM,5i, 14.28. 1 , METALLOÏDES ;LT 

2040 DATA SODIUM.Na, 11.23.METAUX Bi 

2050 DATA STR0NTIUM,Sr.38,87. 6. METAUX Hï 

2060 DATA SOUFRE, S, 16, 32.1, METALLOÏDES >HH 

2070 DATA TANTALE, Ta, 73, 180. 9, METAUX FL 

2080 DATA TECHNETIUM, Te, 43,99, METAUX GF 

2090 DATA TELLURIUM, Te.52, 127. 6, METALLOÏDES >PF 

2100 DATA TERBIUM,Tb,65,15B.9.LANTHANIDE5 >LV 

2110 DATA THALLIUM,T1,B1,204.4,METAUX GJ 

2120 JATA THORIUM, Th, 90, 232, ACTINIDES S', 

2130 DATA THULIUM,T»,69,16B.9,LANTHANIDES LH 

2140 DATA TITANE. Tl, 22. 47. 9.METAUX DC 

2150 DATA TUNGSTENE,H,74,183.9,METAUX ;GZ 

2160 DATA URANIUM,U,92,23B,ACTINIDE3 ;F'v 

2170 DATA VANADIUM.V, 23,50. 9.METAUX >EJ 

2180 DATA XENDN.Xe, 54,131. 3,3AZ >ZZ 

2190 DATA YTTERBIUM, (h, 70, 173, LANTHANIDES MF 

2200 DATA YTTRIUM, Y, 39, 88. 9, METAUX >DM 

2210 DATA ZINC.Zn,30,65.4,METAUX BT 

2220 DATA ZIRCONIUM.Zr, 40,91. 2, METAUX >GY 

2230 END ,YF 

2240 ll l inniiu nl iiiin i u i uiHi i m >ya 

2250 '»**♦ CLASSIFICATION (MENU) *»* ,YB 

2260 WHILE INKEY*-,>"":HEND >VR 
2270 MODE 1:CLS:G0SUB 1100:H$="« CLASSIFICATION PERIODI >NQ 
QUE t":Y=3:M=4O:G0SUB 4110 

2280 H$="* DES ELEMENTS t": Y=5:M=40:G0SUB 4110 >PJ 

2290 LOCATE 6,9:PRINT"A- Liste des éléments." >KQ 

2300 LOCATE 6, 11:PRINT"B- Recherche par le NOM." >YC 
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2310 LOCATE 6,13:PRINT"C- Recherche par le Symbole." 
2320 LOCATE 6, ISsPRIMT'D- Recherche par le No atomique, 



laper votre 



THEN GOSUB I170:BOTO 860 
THEN BOSUB 1170:G0TÛ 2420 
THEN GOSUB 1170:G0T0 2540 
THEN GOSUB 1!70:G0TQ 2640 
THEN GOSUB 11 70: GOTO 90 

le NOM **** 

)0: H$="» Reche 



TARER UNE 



:Y=17:M=40:30SU 



2330 LOCATE 6,17:PRINT"E- Retour au menu 
2340 LOCATE i,23:PRINT CHR$(24)i" 

chou >» ";CHR*(24> 
2350 z*=INKEÏ* 
2360 IF z«="A - OR z*="a' 
2370 IF z*="B" OR z*="b' 
2380 IF z«="C" OR z*="c 
2390 IF z$="D" OR z»="d' 
2400 IF z«="E" OR z$="e 
2410 GOTO 2350 
2420 '»*** recherche pai 
2430 WHILE INKEY$<>"":tlEND 
2440 RE3T0RE 1200:M0DE 1:CLS:G0SUB 1 
e par NON »":Y=3:M=40:G0SUB 4110 
2450 LOCATE 7,8: INPUF'NOM de î élément : ",R$ 
2460 R«=UPPER$(R*):FOR R=l TO 103:REAB A«,B«,C«,D$,E* 
2470 IF RJ=A* THEN 2480 ELSE 2490 
2480 GOSUB 273O:G0T0 2510 
2490 NEXT 
2500 GOSUB 2530 
2510 LOCATE 1,23:FRINT CHRI'24!;" 

TOUCHE ;■» ";CHRt(24) 
2520 CALL &BB06: GOSUB 1170: GOTO 2250 
2530 H$="DES0LE, MAIS NON REPERTORIE 
B 4110:F0R H=l TO 500: NEXT: RETURN 
2540 '«H» recherche par le SYMBOLE *•** 

2550 HHILE INKEYIO NEND 

2560 RESTORE 1200:N0DE 1:CLS:60SUB iiOÔîH* 

car Symbole #":Y=3:n=40:G0SUB 4110 
2570 LOCATE 5.8:INPUT"Symbole de l'élément 
2580 FOR R=l TO 103:READ A«,B*,C«,D*,E« 
2590 IF R*=B« THEN 26» ELSE 2610 
2600 GOSUB 2730: GOTO 2630 
2610 NEXT 
2620 GOSUB 2530 
2630 GOTO 2510 

2640 '♦**• recherche par le No ATOMIQUE HH 
2650 RESTORE 1200:M0DE 1:CLS:G0SUB UO0lHt="« Recherche 

par No ATOMIQUE •":Y=3:M=40: GOSUB 4110 
2660 LOCATE 5,B:INPUT"No ATOMIQUE de l'élément : ",R« 
2670 R«=UPPER»(R$):FOR R=l TO 103;READ A*,B«,C*,D*,E* 
2680 IF R»=C* THEN 2690 ELSE 2700 
2690 GOSUB 2730: GOTO 2720 
2700 NEXT 
2710 GOSUB 2530 
2720 GOTO 2510 

2730 ' #*#+******♦♦*******«******#*#«+#*♦* 
2740 CLSlrtODE 1:G0SUB 110O:H*="« CHIMIE *":Y=3:M=40:G0S 
UB 4110:G0SUB 1050:L0CATE 7,8:PRINT" NOM : ";A$:LXAT 
E 7,10:PRINT " SYMBOLE :'";B$ 

2750 LOCATE 7,12:PRINT" No atom. : ";CI:L0CATE 7,14:P 
RINT" Poids atom. : "iM:L0CATE 7, 16:PRINT" Famille 

: - ;E» 
2760 RETURN 



■ Recherche 
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>FF 
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THEN GOSUB 1170: GOTO 3230 
THEN GOSUB 117O:S0T0 3400 
THEN GOSUB 1170:G0T0 3570 
THEN GOSUB U 7 0:G0T0 3740 
THEN GOSUB 1170:G0T0 3910 
THEN GOSUB 11 70: GOTO 90 



2770 ' **************************************** 
2780 ' EXERCICES SUR LES ELEMENTS 
2790 ***#*******#********#*+**************#** 
2800 MODE 1:CLS:G0SUB 1100:H$="Esercices sur les elemen 
ts":Y=4:M=40: GOSUB 4110 
2B10 LOCATE o,8:PRlNT"A- Trouver le NOM." 
2B20 LOCATE 6,10:PRINT"B- Trouver le SYMBOLE." 
2830 LOCATE 6,12:PR1NT"C- Trouver le No ATOMIQUE." 
2840 LOCATE 6,14:PRINT"D- Trouver le POIDS ATOMIQUE." 
2850 LOCATE 6, lé:PRINT"E- Trouver la FAMILLE." 
2860 LOCATE 6, 18:PRINT"F- Retour au MENU" 
2870 LOCATE 1,23:PRINT CHR*(24): " <« Taper votr 
e chou >» ":CHR«(24) 
2B80 Z*=INKEYt 
2890 IF Z»="A - OR Z«="a" 
2900 IF Z»="B" OR Z$="b" 
2910 IF Z*="C" OR 7i="c" 
2920 IF Z*="D" OR Z*="d" 
2930 IF Z*="E" OR Z$="e" 
2940 IF Z«="F" OR Z$="f" 
2950 GOTO 2860 

2960 '**** dessin du tableau (exercice) **** 
2970 GOSUB 1100: LOCATE 34,25:PRINT CHR*l24i;" QUESTION 
No "sQ;CHR*(24! 

29B0 RESTORE 1200:F0R i=l TO X:READ A».B«,C«,D»,E*:NEXT 
iiC=C+l 
2990 OR1GIN 62,25:DRAW 0,348:0RIGIN 63,25:DRAW 0,348 
3000 ORIGÏN 62.25:DRAW 510,0:ORIGIN 183,25:DRA« 0,148:0 
RIGIN 184,25:DRAK 0,348 

3010 ORIGIN 262,25:DRAN 0,348:0RIGIN 342.25:DRAH 0,348 
3020 ORIGIN 446,25:DRAN 0. 348: ORIGIN 572,25:DRA» 0,348: 
ORIGIN 573,25:DRAW 0,34a 

3030 ORIGIN 62,342:DRAW 510,0:0RIGIN 62,375:DRAK 510,0 
3040 LOCATE 29,1:PRINT CHR$<24) i "*** CHIMIE «♦«" 
;CHR*(24) 

3050 LOCATE 15,3:PRINT"NOM":L0CATE 25,3:PRINT"SYflB0LE" 
3060 LOCATE 35,3:PPINT"No Atom.": LOCATE 45,3:PRINT"Poid 
5 Atom.":LOCATE 61,3:FRINT"FAMILLE" 
3070 RETURN 

3080 ***» Sortie du programme **« 
3090 CLS:MODE 1:G0SUB 1100:H»="m CHIMIE **":Y=3:M=40:G 
OSUB 4110 

3100 LXATE 4,10:PRINT CHR* ! 142) ; STRIN6* (32, Ï31 ! ; CHR* 1 1 
41!:L0CATE 4,11:PRINT CHR*il33);" Confirmez-vous votre 
décision ";CHR*(138) 

3110 LOCATE 4,12:PRINT CHR«(133);STRING$(32.128);CHR*(1 
38):L0CATE 4,13:PRINT CHR»(133);" de quitter le proqram 
le ?(0/N) ";CHR$(13B) 

3120 LXATE 4,14:PRINT CHR«il39);STRING*l32,140):CHRt(l 
35) 

3130 M-INŒY» 

3140 IF A$="0" OR A$="o" THEN 3170 
3150 IF A*="N" OR A*="n" THEN 90 
3160 GOTO 3130 

3170 CLS:lOCATE 5,11:PRINT CHR*(142):STRING»I30,131);CH 
R$(141):L0CATE 5,12:PRINT CHR*(133);STRINS*i30,128i;CHR 
«(138) 
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3180 LOCATE 5,13:PRINT CHR«(133);STPING«(30, 128) ;CHR$il >DJ 
38) 

3190 LOCATE 5,H:PR1NT CHRt U33) ; STRIN6$(30, 123) ; CHR$ (1 >MR 
38) :LOC«TE 5,15:PRINT CHR$ (1371 ;STRING* (30, 140) ;CHR*< 1 
34) 

3200 LOCATE B,I3:PRINT"AUREvTJIR ET,":FOR 1=1 TO 500:NE)( >DT 
T:LOCATE 20,13:PR1NT" A BIENTOT !...' 

3210 FOR H=l TO 2000:NEXT : TE 

3220 INK 0,1:INK 1,24:M0DE 1: BORDER !:PAPER OlPEN 1 :EN >YX 
D 

3230 '****♦« Trouver NON *»♦**» >YA 

3240 WHILE INKEY$<>":WEND «j 

3250 CLS:MODE 2:n=103:SC=0:C=3 -VF 

3260 FOR 0=1 TO 11: IF 0=11 THEN 4070 >AG 

3270 RANDOMIZE TINE:X=INT(RND*n)*l >ED 

32B0 X(Q)=X MF 

3290 FOR J=l TO Q-l >NG 

3300 IF X(Q)=X(J) THEN 3270 ;UD 

3310 NEXT J >VD 

3320 GOSUB 2960 >XH 

3330 C=C+1:L0CATE 27,C:PRINT B«:L0CATE 37,C:PRINT C*:LO ;EG 
CATE 47,C:PRINT D$:LOCATE 59,C:PRINT E* 

3340 LOCATE 10,C:LINE INPUT W$:W«=UPPER*(W) >NF 

3350 IF W$=" OR m O A* THEN GOTO 3360 aSE GOF 3370 >TT 

3360 LOCATE 10,C:PRINT SPACE*(13):L0CATE 10,C:FjR 1=200 >BF 
TO 1 STEP -15:S0UND 1,«,1,15:NEXT «PRINT A»:C0TD 33B0 

3370 FOR »=1 TO 200 STEP 10:S0UND 1,1,1, 15:NEXT n:SC=SC >AH 
+1 

3380 NEXT >LF 

3390 END >ZD 

3400 '*»♦•*♦ Trouver SYMBOLE ****« >XK 

3410 NHILE INKEY*<>"":WEND >VP 

3420 CLS:«ODE 2:n=103:SC=0:C=3 >YE 

3430 FOR 9=1 TO 11:IF 9=11 THEN 4070 >AF 

3440 RANDOMIZE TIME: X=INT<RND»n) +1 >EC 

3450 X(Q)=X >XE 

3460 FOR J=l TO Q-l >MF 

3470 IF X(Q)=X(J) THEN 3440 ,>UL 

3480 NEXT J >KB 

3490 GOSUB 2960 >YF 

3500 C=C+1:L0CATE 10,C:PRINT A*:LOCATE 37,C:PRINT C$:LO >DE 
CATE 47,C:PRINT D«:LOCATE 59,C:PRINT E$ 

3510 LXATE 27,C:LINE INPUT Ut >ÏK 

3520 IF «»="" DR W O M TIEN GOTO 3530 ELSE 80T0 3540 ;TQ 

3530 LOCATE 27,C:PRINT SPACE* (5): LOCATE 27,C:F0R i=200 >A9 
TO 1 STEP -10:SBUND l,i,l,15:NEXT »:PRINT B»:GOTO 3550 

3540 FOR §=1 TO 200 STEP 10:S0UND 1, m, 1. 15:NEXT «:SC=SC >AG 
+1 

3550 NEXT >LE 

3560 END >ZC 

3570 «mm Trouver No atoi. mmm >YH 

3580 WHILE INKEY«<>":ieND >VY 

3590 CLS:NODE 2:n=103:SC=0:C=3 >YN 

3600 FOR 9=1 TO 11: IF 0=11 THEN 4070 >AE 

3610 RANDOMIZE TIME:X=INT(RND«n)+l >EB 

3620 X(Q)=X >XD 



3630 FOR J=l TO Q-l 
3640 IF X(Q)=X(J) THEN 3610 
3650 NEXT J 
3660 GOSUB 2960 

3670 C=C+1:L0CATE 10,C:PRINT A*:LOCATE 27,C:PRINT B«:L0 
CATE 47,C:PRINT D»:LOCATE 59,C:PRINT E« 
3680 LOCATE 37,C:LIN£ INPUT Irt 

3690 IF W»="" OR US O C* THEN GOTO 3700 ELSE GOTO 3710 
3700 LOCATE 37,C:PRINT SPACE*(5):L0CATE 37,C:F0R «=200 
TO 1 STEP -10:S0UND 1,1,1, 15:NEXT n:PRINT C«:GOTO 3720 
3710 FOR ii=1 TO 200 STEP 10:SOUND 1,». 1, 15:NEXT »:SC=SC 
+1 

3720 NEXT 
3730 END 

3740 '***♦*♦ Trouver POIDS atom. «mm 
3750 WHILE INKEY*0'":NEND 
3760 CLSiflODE 2:n=103:SC=0:C=3 
3770 FOR Q=l TO 11:IF 0=11 THEN 4070 
3780 RANDOMIZE TIME:X=INT(RND«)tl 
3790 X(Q)=X 
3800 FOR J=l TO Q-l 
3810 IF X(Q)=X!J) THEN 37B0 
3820 NEXT J 
3830 GOSUB 2960 

3840 C=C+I:LOCATE 10,C:PRINT A*:LOCATE 27,C:PRINT B*:LO 
CATE 37,C:PRINT M-.LOCATE 59,C:PRINT E* 
3850 LOCATE 47,C:LINE INPUT W$ 

3860 IF «*="" OR Ut O D$ THEN GOTO 3870 ELSE GOTO 3880 
3870 LOCATE 47,C:PRINT SFACEt(9) iLOCATE 47,C:F0R «=200 
TO 1 STEP -10:S0UND l,a, 1,15:NEXT «:PRINT D*:60T0 3890 
3880 FOR •=! TO 200 STEP 10:SOUND 1,«,1,15:NEXT u:SC=SC 
+1 

3890 NEXT 
3900 END 

3910 «MM Trouver FAMILLE ««« 
3920 CL5:M0DE 2:n=103:SC=0:C=3 
3930 FOR Q=l TO 11: IF 0=11 THEN 4070 
3940 RANDOMIZE TIflE:X=INT(RND*n)+l 
3950 X(Q)=X 
3960 FOR J=l TO 9-1 
3970 IF X(Q)=X(J) THEN 3940 
3980 NEXT J 
3990 GOSUB 2960 

4000 C=C+1:L0CATE 10,C:PRINT At:LOCATE 27,C:PRINT Bt:LO 
CATE 37,C:PRINT C*:LOCATE 47,C:PRINT Dt 
4010 LOCATE 58,C:LINE INPUT Ut:W=UPPERt(Ut) 
4020 IF Wt="" DR W « El THEN GOTO 4030 aSE GOTO 4040 
4030 LOCATE 58,C:PRINT SPACE$( 12): LOCATE 58,C:F0R »=200 
TO 1 STEP -10:S0UND l,l,l,15:NEXT «:PRINT EtiGOTO 4050 
4040 FOR i»=l TO 200 STEP 10: SOUND 1,», 1,15: NEXT »:SC=SC 
+1 

4050 NEXT 
4060 END 

4070 «mm« RESULTATS EXERCICES mmm«« 
4080 CLS:MODE 1:S0SUB 1100:H«="« CHIMIE *":Y=3:M=40:GOS 
UB 4I10:H»=" ":Y=12:M=40:G0SUB 4U0:L 



« 

UJ 
.«A 
>YE 

■EC 

>YV 
>TY 
>AR 

>AF 



/G 

>vx 

vu 

>AN 

>ek 

YB 
MD 
>UR 
>VK 
>YD 
>DH 

>YV 

TQ 



.MB 
■ZA 

ff 
>YK 
>AL 

EH 
>XK 

M 

UX 
>H6 
>ZA 
.DR 

M 
>TF 

BU 



>LA 
■YJ 
>ÏD 

>DV 



32 



m 



XATE 12,12:PRINT "SCORE : ";SC;" / 10" 

4090 LOCATE 1,23:PRINT CHR»(24);" <« Taper une 

touche >» ";CHft*<24) 

4100 CALL &BB06:G0TQ 2770 

4110 '«h» CADRES DES TITRES ***« 

4120 X=(M-LEN(H*))/2-2 

4130 LE=LEN(H«) 

4140 LXATE X,Y-1:PRINT CHR*(150);STRING«(LE*2,154)iCHR 

1(156) 

4150 LOCATE X,V:PRINT CHR*(149);" "jH»j" "iCHR«(149) 

4160 LOCATE X,Y+1:PRINT CHR*(147) j STRIN6* (LE+2, 154) ;CHR 

«(153) 

4170 RETURN 

41B0 '***** Calculs (et formules) MHHH 

4190 MODE 1:CLS:G0SUB 1100:H*="Calculs (et formules)":' 

=3:H=40:G0SUB 4110 

4200 LXATE 5,6:PRINT"A- Masse molaire d un corps." 

4210 LOCATE 5,8:PRINT"B- volume d'un gaz." 

4220 LOCATE 5,10:PRINT"C- Nombre de particules d'un cor 

PS." 

4230 LOCATE 5,12:PRINT"D- Masse d'un corps." 

4240 LXATE 5,14:PRINT"E- Volume molaire d'un gaz." 

4250 LOCATE 5,16:PRINT"F- Noubre de noies d'un corps." 

4260 LOCATE 5, 1B:PRINT"S- Légende." 

4270 LOCATE 5,20:PR!NT"H- Retour au menu principal." 

4280 LXATE 1,23:PRINT CBRJI24);" <« Taper votre 
choix >» ";CHM(24) 

4290 a$=INKEY» 

THEN GOSUB 1180: GOTO 4390 
THEN GOSUB 1180:G0T0 4510 
THEN SOSUB llSOlEOTQ 4630 
THEN 60SUB 1180:60T0 4760 
E" THEN GOSUB 1180:G0T0 4870 
F" THEN GOSUB 1180: GOTO 4990 



4300 IF a*="a" OR a»="A 

4310 IF a$="b" OR a»="B 

4320 IF m*»"c' OR a*="C 

4330 IF a«="d" OR a»="D 

4340 IF a*="e" DR a* 

4350 IF a*="f OR a*: 



4360 IF a«="g" OR a«="G" THEN GOSUB 1180:G0T0 5290 

4370 IF a«="h" OR a»="H" THEN GOSUB 1180:S0T0 90 

4380 GOTO 4290 

4390 '*** Nasse molaire d un corps *** 

4400 WHILE INKEY»<>":HEND 

4410 MODE l:CLS:BOSUB 1100:H»="Masse molaire d'un corps 

":Y=3:M=40:G0SUB 4110 

4420 LOCATE 8,8:PRINT"Formule :" 

4430 LOCATE 18,8:PRINT "M(X) = ":LXATE 25,7:PRINT NN*: 

". mlxPiLOCATE 8,9:PRINT STRINS*(25, 154) 

4440 LXATE 11, 11:PRINT M»i"= 6.02*10 mol" 

4450 LOCATE 22,lllPRINT"23 -1" 

4460 LXATE 12,14:PRINT"(ou 6.02«lE+24)" 

4470 LOCATE 5, 17: INPUTEntrez la valeur de m(x):",rep 

4480 resultat=6.02»lE*24*rep 

4490 LOCATE 10,20:PRINT ■ M(x) =";R0UND(resultat,2) 

4500 LXATE 1,23:PRINT CHR*(24)|" <« Taper une 

touche >» "iCHR«(24):CALL MB06:B0T0 4180 

4510 '»*» Volume d'un gaz *** 

4520 WHILE !NKEY*<>"":MEND 

4530 MODE 1:CLS:G0SUB 1100:H$="Volume d'un gaz":Y=3:M=4 

0: SOSUB 4110 

4540 LOCATE 8,8:PRINT"Formule :" 



PE 
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4550 LOCATE 18,8:PRINT "V(x) = n(x) . Vm" *A 

4560 LXATE 8,9:PRINT STRINS«(26,154) >FP 

4570 LOCATE 5, 12: INPUTEntrez la valeur de n(x):",n >DZ 

4580 LXATE 5, 15: INPUTEntrez la valeur de Vu :",v >CZ 

4590 resultat=n*v >NH 

4600 LOCATE 13,20:PRINTV(x> =";R0UND(resultat,2i >WD 

4610 LOCATE 1,23:PRINT CHR*(24);" <« Taper une >XA 
touche >» "|CHR*(24):CALL !<BB06:G0T0 4180 

4620 END >ZA 

4630 '*** Noubre de particules d'un corps #** >YF 

4640 WHILE IMtEViO"!*» M 

4650 MODE 1:CLS:G0SUB 1100:H*="Noinbre de particules d'u >AB 
n corps":Y=3:M=40:GOSUB 4110 

4660 LXATE 8,8:PRINT"Formu!e :" >DN 

4670 LOCATE 18,8:PRINT "N = ":LXATE 22,7:PRINT NN<;". >DP 
nlx)":LXATE 8,9:PRINT STRING$(22,154) 

4680 LOCATE 11,11:PRINT NN*;"= 6.02*10 loi" >HN 

4690 LXATE 22,1 1:PRINT"23 -1" >ZV 

4700 LXATE 12, 14:PRINT" (ou 6.02*lE+24!" >HM 

4710 LOCATE 5, 18: INPUTEntrez la valeur de n(x):",rep >GF 

4720 resultat=6.02*lE+24*rep >XC 

4730 LOCATE 11,21:PRINT " N =";ROUN0(resultat,2) >UC 

4740 LOCATE 1,23:PRINT CHR$124);" «< Taper une t >PG 
ouche >» ";CHR$(24) 

4750 CALL &BB06:G0T0 4180 >TG 

4760 '*** Masse d'un corps *** >YK 

4770 WHILE INKEY*0"":WEND ;>VA 

4780 MODE l:CLSi GOSUB 1100:H*="Masse d'un corps":Y=3:M= >XC 
40: GOSUB 4110 

4790 LOCATE 8,B:PRINT"Formule :" >DT 

4800 LOCATE 18,8:PRINT "■(*) = n(x) . M(xi" ;MN 

4810 LOCATE 8,9:PRINT STRINGK2B, 154) >FP 

4820 LOCATE 5,12:INPUT"Entrez la valeur de n(x):",n >DX 

4830 LXATE 5,15: INPUTEntrez la valeur de M(x):",M >DP 

4840 resultat=n*M >NN 

4850 LXATE 13,20:PRINT"m(x! =":ROUND(resultat,:) >*. 

4860 LOCATE 1,23:PRINT CHR«(24);" <« Taper une t >XH 
ouche >» ";CHR«(24):CALL SBB06:GOTO 4180 

4870 '*** Volume «olaire d'un gaz *** >ZB 

4B80 WHILE INKEY*«"":WEND >VC 

4890 MODE 1:CLS: GOSUB 1100:H*="Volu«e molaire d'un corp >PC 
s":Y=3:M=40:S0SUB 4110 

4900 LXATE 8,8:PRINT"Formule :" >DK 

4910 LOCATE 1B,8:PRINT "Vm(x) =":L0CATE 25,7:PRINT NN«s . JF 
". V(x)":L0CATE B,9:PRINT STRING* (25, 154) 

4920 LXATE 11, IliPRINT NN*;"= 6.02*10 loi" >MK 

4930 LOCATE 22,U:PRINT"23 -1" >ZR 

4940 LOCATE 12,14:PRINT" (ou 6.02ME+24)" >HU 

4950 LOCATE 5, 18: INPUTEntrez la valeur de V(x):",rep ,-GL 

4960 resultat=6.02*lE+24*rep >XJ 

4970 LXATE 8,21:PRINT " Vm(x) =";ROUNI)(resultat,2) >YN 

4980 LOCATE 1,23:PRINT CHR*I24);" «< Taper une >XL 
touche >» "iCHR»(24l:CALL Î.BB06:S0T0 4180 

4990 '*** nombre de moles *** >ZE 

5O00 WHILE INKEYS<>"":WEND >VL 

5010 MODE 1:CLS:G0SUB 1 1 00 :HV=" Nombre de moles ":Y=3:B= >XB 
40:G0SUB 4110 
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5020 LOCATE 9, 10: PRINT"Sol ide, Liquide ou Gaz '"':L0CATE 
16, 11 sPRIMT" (S/L/G) " 

5030 z«=INKEY» 

5040 IF z*="S" OR z$="s" THEN GOSUB 11B0:G0T0 5080 
5050 IF z*="L" OR z«="l" THEN GOSUB 11BO:SOTO 5170 
5060 IF z»="G" OR z$="q" THEN GOSUB 1180:G0T0 5200 
5070 GOTO 5030 

5080 '«« Nombre de orales d'un solide ♦»* 
5090 MODE 1:CLS: GOSUB H00:H»="Nonbre de noies d'un sol 
ide":Y=3:M=40:60SUB 4110 
5100 LOCATE S,B:PRINT"Formule :" 

5110 LOCATE 18,8:PRINT "n(>;! =":L0CATE 24,8:PRINT STRIN 
G«(6,154):L0CATE 24,7:PRINT " mix)":LOCATE 24,9:PRINT " 
M(x> - 

5120 LOCATE 5,12:lNPUT"Entrez ia valeur de ■(x)!",h 
5130 LOCATE 5, 15:INPUT"Entrez la valeur de Mixh",k 
5140 résultat*/* 

5150 LOCATE 13,20:PRINT"n(x) =";R0UND(resultat,2> 
5160 LOCATE 1,I3:PRINT CHRSC24);" <« Taper une t 
ouche >» ";CHR«(24):CALL S£B06:G0TÛ 4180 
5170 '«*» Noiibre de «oies d'un liquide «t* 
5180 «ODE l:CLSl GOSUB 1100:H»="Nombre de «oies d un liq 
uide":V=3:M=40:G0SUB 4110 
5190 GOTO 5100 

5200 '•♦* Nombre de «oies d un gaz *»» 
5210 MODE i:CL5:G0SUB 1100:H$="Nombre de moles d'un oa: 



IV é 



":»=3:IM0:G0SUB 4110 
5220 LOCATE 8 T B:PRINT"Fornule :" 

5230 LOCATE 18,8:PRINT "n(x! =":L0CATE 24,8:PRINT STRIN 
G»(6,154):L0CATE 24,7:PRINT " Dix)": LOCATE 24,9:PRINT " 
Vais) 

5240 LOCATE 5,12: INPUT"Entrez la valeur de m i >: J : " , p 
5250 LOCATE 5,15:INPUT"Entre: la valeur de Vifx):*,r 
5260 resultat=p/'r 

5270 LOCATE 13,20:PRINT"ni;-.) *")R0UND(r«5ultat,2) 
5280 LOCATE I,23:FRINT CHR$(24i;" ' Taper une t 
ouche >» ";CHR$I24):CALL IBBOoiGOTO 4180 
5290 '**♦ Légende *** 

5300 CLS:M0DE 1: GOSUB 1100:K$="«* Légende **": V=3: H=40: 
GOSUB 4110 

5310 LOCATE 5,7:PRINT"m = nasse d'un corps." 
5320 LOCATE 5,9:PRINT"V = volume d'un gaz." 
5330 LOCATE 5, ll:PRINT"n = nbre de moles." 
5340 LXATE 5,13:PRINT"Vm = volume molaire d'un corps." 
5350 LOCATE 5,14:PRINT NN«; " = nbre d'AVOGADRO. " 
5360 LOCATE 5. 17:PRINT "N = nbre de particules." 
5370 LOCATE 5,19:PRINT "M = masse molaire ato«. d un ce 
rps. " 

5380 LOCATE 1,23:PRINT CHR*(24li" <« Taper une 
touche >» "jCHR*<24) 
5390 CALL WB06:60T0 4180 
5400 RETURN 
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4 REVUES POUR LES PASSIONNES 



CPC - REVUE DES UTILISATEURS D'AMSTRAD : en vous abonnant, vous rece- 
vrez chez vous votre revue. Vous bénéficierez de réductions sur certains produits et vous 
recevrez gratuitement 1 n° hors-série tous les deux mois. 

AMSTAR : en avant première, toutes les nouveautés sur AMSTRAD <- des programmes, 
des articles I A la demande de nos lecteurs, nous prenons désormais les abonnements. 
PCompatlbies MAGAZINE : la référence en matière d'initiation et de perfectionne- 
ment sur les "compatibles PC". 

Attention, tous nos abonnés reçoivent avant parution des souscriptions sur les nouveaux 
livres I 

ATTENTION I II n'y a pas d'abonnement rétroactif. 

□ CPC AMSTRAD 1 1 numéros 220 F 
Q 6 numéros 120 F 

□ AMSTAR 11 numéros 140 F , 

□ PCompatibles Magazine 1 1 numéros 200 F 

□ Arcades 1 1 numéros 200 F 



NOM_ 



Prénom _ 



Code postal . 



Date- 



Ville 

Signature - 



Je m'abonne à : 



Merci d'écrire en majuscules. Ci-joint un chèque libellé a l'ordre de : Editions SOPACOM. 
Service Abonnement - BP 1 1 - 351 70 BRUZ - Retournez le(s) bulletin(s) ou une photocopie. 
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M 1871 9 20,00 F 



3791871020002 00090 



INFORMATIQUE 

COMMUNICATION 

DIALOGUE 36 15 MHZ 



De nouvelles rubriques arrivent 



TOUTES NOS REVUES 



Savoir comment nous joindre, les sommaires, les 
infos... 



QUESTIONS-REPONSES 



Une nouvelle façon de poser les questions et de 
voir les réponses faites ! 



500 PETITES ANNONCES 



C'est en moyenne ce que vous trouvez sur le 
serveur. De quoi fqire votre choix ! 



BOITE AUX LETTRES 



Une manière de correspondre entre vous ou de 
nous laisser des messages. Nos BAL : SORACOM 
- ARCADES - AMSTAR - PCOMPATIBLES - MEGA- 
HERTZ - CPC REDACT - ASTROLOGIE PRATIQUE 



DIALOGUE 



En direct, vos questions, vos idées et suggestions 



REVENDEURS 



Certains revendeurs français disposent d'un accès 
gratuit pour leurs promotions 



NOS PRODUITS 



La rubrique sur nos productions avec la possi- 
bilité de commander 



BRETAGNE EDIT' PRESSE 



Désormais vous trouverez sur le serveur les 
nouveautés diffusées par cette société 



HOROSCOPE 



L'horoscope 1988 mais aussi depuis peu le men- 
suel du 15 au 15 du mois 



Au téléphone. 1 5 minutes coûtent en moyenne 55 francs 
Par minitel. Il vous en coûte pour le même temps 15 francs 



LE BON CHOIX 3615 MHZ NOUVELLE VERSION 



